@n{@l=(_,a..z,'.')}=0..27;@c=@n{pop=~/./g};$"=my$i;$p[$_[0]*$i++%@c]=$l[($_+$i)%28]for@c;"@p"