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