#!perl -l

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