push @b, [splice @a, 0, 3 ] while @a;