perl -lne'/^(..)(.)(..)$/and$w{"$2$3$1"}=$w{"$3$1$2"}=$_;print"$w{$_} $_"if$w{$_}' wordlist