while ( (my $a, @a) = @a ) {