5 ;# $long = $foo{$short};
15 @extra = split(//,$name);
16 $abbrev = shift(@extra);
19 next if $cmp eq $name;
20 while (@extra && substr($cmp,0,$len) eq $abbrev) {
21 $abbrev .= shift(@extra);
25 $domain{$abbrev} = $name;
26 while ($#extra >= 0) {
27 $abbrev .= shift(@extra);
28 $domain{$abbrev} = $name;