Select Code to Download

@dict = qw (foo oof fff bar baz);
$letters = 'ofo';
...
sub anagram {
    grep{(join'',sort split//,$_[0])eq join'',sort/./g}@{pop()}
}

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