use Algorithm::Loops 'NestedLoops';

## returns an alias to $_[0]->[ $_[1] ]...[ $_[-1] ]
sub deref_many : lvalue {
    my $ptr = \shift;
    $ptr = \$$ptr->[$_] for @_;
    $$ptr;
}

my @array;
my @size = (4, 5, 6);

NestedLoops(
  [ map [0 .. $_-1], @size ],
  sub { deref_many(\@array, @_) = rand }
);