for my $key_hash2 (sort {lc($a) cmp lc($b) } keys %{$hash2} ) {
    if( ! exists $hash1->{$key_hash2} ) {
      print "Hash1 contains unit '$key_hash2' but hash1 has no such unit\n";
    }
  }