perl -e 'while(<>){chomp;$words{join"",reverse split//}=$_} foreach(sort keys %words){print"$words{$_}\n"}'</usr/share/dict/words