Select Code to Download

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

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