How about something like:

my @data = get_big_array;
my @new;
my $i;
for( $i = 0; $i < $#data; $i+=30 ) {
  push @new, [ @data[$i..($i+29)] ];
}
[download]