in reply to Re: How to get ($1, $2, ...)?in thread How to get ($1, $2, ...)?
my @groups; {no strict 'refs'; @groups = map $$_, 1..$#-;} [download]
Nice Educated_foo!
Update: Removed use of grep, didn't notice it in there the first time ;)