Select Code to Download

my %words;
{
...
        push @{$words{$key}}, $_;
    }
}

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