Select Code to Download

@a = split //, "justin";
@b = split //, "anthony";
...
$" = '';
$\ = "\n";
$, = " ";

($a,$",$\,$,)=('a','',"\n",' ');
map{@{$a++}=split//}qw|justin anthony peter lucky|;

($a,$",$\,$,)=('a','',"\n",' ');
map{@{$a++}=split//}qw|justin anthony peter lucky|;
print join$",@{($a='a')++}[0..3],$,,@{$a++}[0,1,4,
      ,2,3],@{$a}[3,4],$,,@{$a++}[0,1,4],${$a}[0],
      $,,@{($a='b')++}[3,0],@{++$a}[2,3],++$a,'r';