@a = split //, "justin";
@b = split //, "anthony";
@c = split //, "peter";
@d = split //, "lucky";
$" = '';
$\ = "\n";
$, = " ";

##</code><code>##

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

##</code><code>##

($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';