You could avoid several temporary variables (line_number, count, column, @field) by doing:

   push @d_array, [ $csv->fields() ];
[download]

If you wanted to get fancy (and cryptic), you could try:

@d_array = map { $csv->parse($_) ? [ $csv->fields() ] 
                                 : warn($csv->error_input), () }
                <INFILE>;
[download]

I also suggest you pass a reference to printrow():

sub printRow{
  my ($aref) = @_;

  print Dumper($aref);
}
## call like this ..

printRow(\@d_array); # using & is deprecated
[download]

UpdateFix typo, and formatted better.