push @b, [splice @a, 0, $l] while @a;

##</code><code>##

print "@$_\n" for @b;