Select Code to Download

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

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