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

##</code><code>##

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

##</code><code>##

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

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

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