13 lines
146 B
Perl
13 lines
146 B
Perl
#!/usr/bin/perl -w
|
|
|
|
|
|
|
|
$rt_big = [1..1000];
|
|
|
|
|
|
while (@t_small = splice(@$rt_big, 0, 33)) {
|
|
$rt_small = \@t_small;
|
|
print "@{$rt_small}", "\n";
|
|
|
|
}
|