foreach (do {
    my %matcher;
    @matcher{map lc,keys %hash1}=();
    grep exists $matcher{lc $_},keys %hash2;
  }) {
  print "$_ matches\n";
}