perl -lne"BEGIN{ $x=join'',sort split'',shift }"
-e"1+index( $x, join'',sort split'', $_ ) and print" dude words

de
dude
due
ed
ude