require "abbrev.pl";

%abdul = ();
&abbrev(*abdul,LIST);
...
$long = $abdul{$short};