Select Code to Download

use List::MoreUtils qw( natatime );

my $iter = natatime $l, @a;
while (my @row = $iter->()) { push @b, \@row; }