my @newarrays;
my @bigoldarray;

push @newarrays, [splice @bigoldarray, 0, 30] while @bigoldarray;