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