Anagram program using the wordlist from http://www.isc.ro/en/commands/lists.html

anagrams.pl

#!/usr/bin/env perl
use strict;
use warnings;

my %hash;
my $output = 0;

open FILE, "TWL06.txt" or die $!;

while (<FILE>) {
    chomp;
    $_ = lc;

    push @{$hash{join "", sort(split //)}}, $_;
}

close FILE;

for my $key (sort {@{$hash{$b}} <=> @{$hash{$a}}} keys %hash) {
    print "$key (" . @{$hash{$key}} . ") => " . join(", ", @{$hash{$key}}) . "\n";

    last if ++$output >= 3;
}