There are several that may be helpful:

Text::Abbrev - create an abbreviation list from a table

Tie::Hash::Abbrev - a hash that can be accessed with abbreviated keys.

Tie::Hash::Abbrev::Smart - same description as the last one.

Tie::Hash::Approx - you get the idea...

String::Approx - Perl extension for approximate matching (fuzzy matching).