@dict = qw (foo oof fff bar baz);
$letters = 'ofo';
$sorted  = join '', sort split//, $letters;
$length  = length $letters;

@words = grep{ $length == length  and 
               $sorted eq join '', sort split// }@dict;

print "@words";