sub mainCSV
{
     # Open the CSV input file
     open (my $infile_CSV1, '<', "$infile_CSV") or die "Unable to open $infile_CSV: $!\n";