Select Code to Download

use Text::Soundex 'soundex';

my @words = qw(
...
for( @pairs ) {
  print "@$_\n";
}

Cow Phone
Clock Phon
Torld Hello
...
Hello Worlx
Speaker Phone
Phon Speaker