use Algorithm::Loops qw( NestedLoops ); splice(@aoa, $count); NestedLoops(\@aoa, sub { print(@_); }); #### use Algorithm::Loops qw( NestedLoops ); NestedLoops(\@aoa, sub { print(@_); });