my @chunk; while ( ( @chunk[0..19] , @array ) = @array ) { print "@chunk\n"; }