Help for this page
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
www.com | www.net | www.org
No recent polls found