#        1         2         3         4         5         6
#2345678901234567890123456789012345678901234567890123456789012
$;=join'?',sort@_;grep{chop;(join'',sort split//)=~/^$;?$/}<D>