Lines Matching refs:word
44 my ($word, $hashref, $glob, %table, $returnvoid);
56 WORD: foreach $word (@_) {
57 for (my $len = (length $word) - 1; $len > 0; --$len) {
58 my $abbrev = substr($word,0,$len);
60 if ($seen == 1) { # We're the first word so far to have
62 $hashref->{$abbrev} = $word;
63 } elsif ($seen == 2) { # We're the second word to have this
66 } else { # We're the third word to have this
67 # abbreviation, so skip to the next word.
73 foreach $word (@_) {
74 $hashref->{$word} = $word;