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