use Text::Soundex;

$code = soundex $string;  # get soundex code for a string
@codes = soundex @list;   # get list of codes for list of strings

# set value to be returned for strings without soundex code
$soundex_nocode = 'Z000';
*****
@codes = soundex qw(Mike Stok);
*****
$code = soundex 'Knuth';              # $code contains 'K530'
@list = soundex qw(Lloyd Gauss);      # @list contains 'L300', 'G200'