foreach my $line ( @tmp2 ) {