foreach (<TMP1>) {

  my $tmp_1 = $_;
  chomp ($tmp_1);
  print LOG $gen;

  foreach (<TMP2>) {

    my $tmp_2 = $_;
    chomp($tmp_2);
    

    if($tmp_1 ne $tmp_2) {
      print "wire";
    }
  }
}