use strict;

#Load the dictionary
my @words;
my %dict;

push @words, split ' ', lc while <DATA>;
map {push @{$dict{join '', sort split '', lc}}, lc } @words;

# "Generate" a letter set
my $letters = join '', sort split '', $words[rand @words];
print "$letters\n";

# Find all the matching words
print join ', ', @{$dict{$letters}};