while (my $line1 = <$file2>){
  next unless ($line1 =~ /\S/); # skip empty lines
  chomp $line1;