my ($wl, %words) = '/usr/dict/words';
{
    open my $wf, '<', $wl or die $!;
    chomp, push @{$words{join( '', sort split //, lc)}}, $_
        while <$wf>;
    close $wf
}