for( my $a; $a = shift @a; @a ) { } [download]
In reply to Re^5: Array Processing by BUU in thread Array Processing by Rajeshk