while (<$in1>) {
  chomp;
  my ($key1,$value1) = split (/\s*=\s*);
  if defined($hash{$key1}) {
     print "$key1 is in both!\n"
  }
}