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