Select Code to Download

use Algorithm::Loops 'NestedLoops';

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