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