Help for this page

Select Code to Download

Select or download this

@dict = qw (foo oof fff bar baz);
$letters = 'ofo';
...
@words = grep{ $sorted eq join '', sort split// }@dict;

print "@words";

Select or download this

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

print "@words";