Lines Matching refs:lower
474 my %lower = ();
482 $lower{$_} = $_;
487 $BoThCaSe{$_}++ if exists $lower{$_};
489 foreach (keys %lower) {
494 delete $lower{$_};
498 debug "# lower = ", join("", sort keys %lower ), "\n";
507 for (keys %UPPER, keys %lower) {
770 # of upper/lower does not work well in Unicode.
773 foreach my $x (keys %lower) {
776 print "# lower $x uc $y ",
784 # of upper/lower does not work well in Unicode.