Select Code to Download

use strict;use Text::Soundex;
my%w=map{((soundex$_),$_)}qw(
...
jossed a-needier poorly hooker

));

use strict;use Text::Soundex;
print map{${{map{((soundex$_),$_)}qw(
...
jossed a-needier poorly hooker

));