@p =('j','a','e','r','a');
@e =('u','n','r','l','c');
@r =('s','o',' ','6','k');
@l =('t','t','p',' ','e');
@6 =(' ','h','e','h','r');
   print 
@p ^_
@e ^_
@r ^_
@l ^_
@6
[download]

This actually runs with the current CVS snapshot of parrot/perl6. It obviously won't run with perl5.

As perl6 hasn't got that lot features implemented, I couldn't use stuff like qw and nested arrays ...

So. As far as I know this is the first JAPH in perl6, comming live from YAPC::Europe.

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
[download]