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