in reply to Word with most anagram
neat stuff.
8:
push @{$word{$sorted_word}}, $_;
and so on.
Also, you can replace
with
8:
- asper
- pares
- parse
- pears
- rapes
- reaps
- spare
- spear
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}});
In Section
Cool Uses for Perl