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