#!/usr/bin/perl -w # # $Revision: 1.3 $ $Date: 2009/08/05 20:32:58 $ # $UUID: d1d297cd-181b-3fd1-b578-fbbbe1c1f066 $ # #) { chomp; doword($_) foreach (split); } } foreach (sort keys %hash) { print "$_:$hash{$_}\n"; } exit(0); sub doword { my $word = shift; my $m = Metaphone($word); $hash{$m} .= " $word" if length($m) > 1; }