Select Code to Download

use Text::CSV;

...
while (my $row = $csv->getline ($fh)) {
    say "The second field is ", $row->[1];
    }

use Text::CSV;

...
        my @subfields = $parse->fields;
        }
    }