Lines Matching refs:key
177 'key', 'KBD',
1128 local($index, *ary, @keys, $key, $letter, $last_letter, @refs);
1136 foreach $key (@keys) {
1137 $_ = $key;
1143 $key2alpha{$key} = $_;
1144 print "# index $key sorted as $_\n"
1145 if $key ne $_ && $debug & $DEBUG_INDEX;
1149 foreach $key (sort byalpha @keys) {
1150 $letter = substr($key2alpha{$key}, 0, 1);
1151 $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;;
1160 foreach $key (sort byalpha @keys) {
1161 $letter = substr($key2alpha{$key}, 0, 1);
1162 $letter = substr($key2alpha{$key}, 0, 2) if $letter eq $;;
1170 foreach (split(/$;/, $ary{$key})) {
1171 push(@refs, &anchor('', $_, $key, 0));