my $del_1= chomp($line);
   print $temp_out $del_1 ;