open my $inFile, '<', $csv_filename or die qq{Cannot open file "$csv_filename"\n};