while (my $line = <$infile_CSV1>)
     {
          chomp;
          $line =~ s/\s*\z//;