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