use strict;
use warnings;
use Text::Soundex;

my @list = qw(The quick brown fox jumps over the lazy dog);

print "Rhein \t ", soundex('Rhein'), "\n";
print "Rain \t ", soundex('Rain'), "\n";
print "\n";

my @result = soundex(@list);
for my $i (0 .. $#list)
  { print "$list[$i] \t $result[$i]\n"; }