#!/usr/bin/perl -w
# small driver for metaphone.

use Text::Metaphone;
use strict;

my $word;
my $m;
my %hash;

while (<>) {
  chomp;
  foreach $word (split) {
      $m = Metaphone($word);
      $hash{$m} = 1 if length($m) > 1;
  }
}

foreach (sort keys %hash) {
    print "$_\n";
}

exit (0);