in reply to perlish mapping a list to triples

Here's a variant of BrowserUks approach:

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

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

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

[download]

-- Django
"Why don't we ever challenge the spherical earth theory?"

In Section Seekers of Perl Wisdom