http://qs321.pair.com?node_id=230951


in reply to Word with most anagram

neat stuff.
8:
  • asper
  • pares
  • parse
  • pears
  • rapes
  • reaps
  • spare
  • spear
Comments : you seem to never use $length for anything interesting -- just as an added layer of complexity to your %word hash. You can remove it when referring to %words keys and achieve the same results :
push @{$word{$sorted_word}}, $_;
and so on.
Also, you can replace
@most_ref=(); push @most_ref, \@{$word{$length}{$sorted_word}};

with
@most_ref=(\@{$word{$sorted_word}});