my @a = (1..30);
my @b;
my $p = 0;

push @b,[ @a[map{$p++}(1..3)] ] while $p < $#a;

print map{"@$_\n"}@b;
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.