Lines Matching refs:key
50 while (($key,$value) = each(%h)) {
51 if ($key eq $keys[$i] && $value eq $values[$i]
52 && (('a' lt 'A' && $key lt $value) || $key gt $value)) {
53 $key =~ y/a-z/A-Z/;
54 $i++ if $key eq $value;
61 ok ($#keys == 31, "added a key");
81 $total += $key while $key = each %hash;
87 $total += $key while $key = each %hash;
92 $total += $key while $key = each %hash;
98 $total += $key while $key = each %hash;
115 while (($key, $value) = each(h)) {
116 if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
151 ok (!exists $b{$A}, "utf8 key in bytes hash");
152 ok (!exists $u{$a}, "bytes key in utf8 hash");