## initialization

my @multi_dimensional_array;

NestedLoops(
  [ ( [0..$dimension-1] ) x $depth ],
  sub {
     DiveVal( \@multi_dimensional_array, @_ ) = 0;
  }
);