sub printRow{
  #input the row number
  print Dumper(@_);
}
# and later:
&printRow(@d_array);

##</code><code>##

$d_array[$line_number]= [@field];