#!/usr/bin/perl -w



$rt_big = [1..1000];


while (@t_small = splice(@$rt_big, 0, 33)) {
	$rt_small = \@t_small;
	print "@{$rt_small}", "\n";

}