# Kind of like this...
push( @{ $data{ join('', sort split(//, $word)) } }, $word );

##</code><code>##

# Kind of like this...
print join("\n", @{ $data{ join('', sort split(//, $input)) } }), "\n";