Doesn't seem to be that clumsy.

use List::MoreUtils qw( natatime );

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

Update: Switched to using a while loop, since the while statement modifier doesn't work here.