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

##</code><code>##

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

##</code><code>##

foreach $line (<INFILE>) {

##</code><code>##

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

##</code><code>##

        my @field = $csv->fields;
        my $count = 0;
        for my $column (@field) {
            ++$count;
            $d_array[$line_number][$count] = $column;
        }

##</code><code>##

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