perl -e '$start = q[px]; print crypt( "polka" , $_ ) . "\n" for map $start. $_ , '' , q[a] .. q[x] , 0 .. 9' \ | uniq pxtbCUVxSeD2A