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