You can try Text::Soundex, but like String::Approx, finding the 'best' match is not an exact science.

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

Jeff