sub mainCSV
{
     my ($infile_CSV, @extraStuff) = @_;
     if (!defined $infile_CSV) { $infile_CSV = ''; }

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