RosettaCodeData/Task/Here-document/Perl-6/here-document-3.pl6

my @a = <1 2 3 4>;
say Q :array :to 'EOH';
    123 \n '"`
        @a$bc
        @a[]
    EOH
June 2018 Update 2018-06-22 20:57:24 +00:00			`my @a = <1 2 3 4>;`
			`say Q :array :to 'EOH';`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			123 \n '"`
			`@a$bc`
			`@a[]`
			`EOH`