Help for this page

Select Code to Download

Select or download this

my %hash1 = ("TEXT", 25);
my %hash2 = ("text", 25);
foreach my $item2 (keys(%hash2)) {
    if (exists $hash1{uc $item2}) { print "matches\n";}
}

Select or download this
```
$hash1{lc $item1} = $value1; # etc
```