my %words;
{
    open my $fh, '<', '/path/to/dict.txt' or die $!;
    while <$fh> {
        chomp;
        my $key = join '', sort split '';
        push @{$words{$key}}, $_;
    }
}

##</code><code>##

my $word = <>; # or however you get it
chomp;
$word = join '', sort split '', $word;
print "@{$words{$word}}\n";