in reply to Re^4: Array Processing
in thread Array Processing

How about:
for( my $a; $a = shift @a; @a )
{
}

[download]

In Section Seekers of Perl Wisdom