%m=map{$_=>1}split'',$m="ah .cor kht.Yhtn.kcelhtP";$z=@m=sort keys%m; 
while(--$z){undef@e;push@e,"\$m =~ y/&",@m,"/";push@m,shift@m;push@e,
'.',@m,"/;";eval join'',@e;}print $m;