@dict = qw (foo oof fff bar baz);
$letters = 'ofo';
print anagram($letters, \@dict);

sub anagram {
    grep{(join'',sort split//,$_[0])eq join'',sort/./g}@{pop()}
}