foreach my $line ( @tmp1 ) {