Select Code to Download

use strict;
use Text::Soundex;
...
push @{$hash{soundex($_)}}, $_ foreach @inwords;
push @outwords, @{$hash{$_}} foreach keys %hash;
print join(' ', @outwords);

google goxgle kugel perl holly holey holy yahoo april monks monk eperl