use strict;
use warnings;

use YAML::Syck qw(DumpFile);

my $dict_file = 'EN_AU.dic';
open my $dict, '<', $dict_file or die "Unable to open '$dict_file' for reading: $!";
my %word_table;
while (<$dict>) {
    chomp $word;
    my $key = join '', sort map lc(), split //, $word;
    push @{$word_table{$key}}, $word;
}
DumpFile( 'dict.yml', \%word_table );

##</code><code>##

use strict;
use warnings;

use YAML::Syck qw(LoadFile;

# slurp all arguments
my @letters = split //, @ARGV;
die usage unless @letters;
my $key = join '', sort @letters;
my $lookup_word = LoadFile('dict.yml');
if ( exists $lookup_word->{$key} ) {
    my @words = sort @{ $lookup_words{$key} };
    print "Found words: @words\n;
}
else {
    print "No words found\n";
}

sub usage {
...
}