Select Code to Download

unless (open(INFILE, $csv_filename)){
    print "Cannot open file \"$csv_filename\"\n";
    exit;
  }

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

foreach $line (<INFILE>) {

while (defined (my $line = <$inFile>)) {

        my @field = $csv->fields;
        my $count = 0;
...
            ++$count;
            $d_array[$line_number][$count] = $column;
        }

        $d_array[$line_number] = [$csv->fields ()];