Select Code to Download

sub o {
($l,*w,$")=@_;sub g{$_=pop;s/./chr index"@$l",$&/ges;$_}sort{g($a)cmp 
+g+$b}@w
}