use Text::Soundex;
$similar = soundex($string);
@sims    = soundex(@strings);