while (my $a = shift @a) {

##</code><code>##

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