%abbrevs   = abbrev(@files);
@possibles = sort { length($a) <=> length($b) } ( keys(%abbrevs) );