!/usr/bin/perl -Tw
#use T taint, and W warnings
use strict;
use Data::Dumper;
require Text::CSV;

#----------------------------------------------------------
sub printRow{
  #input the row number
  print Dumper(@d_array);
}
#----------------------------------------------------------

#read the csv
my $csv_filename="test.csv";
# Getting input into working file

my $line;
my $line_number;
my $csv = Text::CSV->new;
my $separator = ',';
my $column = '';
my @d_array;
my $cnt;

unless (open(INFILE, $csv_filename)){
    print "Cannot open file \"$csv_filename\"\n";
    exit;
  }
  foreach $line (<INFILE>){
    $line_number++;
    if ($csv->parse($line)) {
      my @field = $csv->fields;
      my $count = 0;
      for $column (@field) {
        ++$count;
        $d_array[$line_number][$count]=$column;
      }
    } else {
      my $err = $csv->error_input;
      print "parse() failed on argument: ", $err, "\n";
  }
close INFILE
}

print Dumper(@d_array);
&printRow($cnt);