Select Code to Download

# (untested)
use Data::Diver qw[Dive DiveVal];
...
     ## do something with $val. say, push it to an array
  }
);

## initialization

...
     DiveVal( \@multi_dimensional_array, @_ ) = 0;
  }
);