while (my $a = shift @a) {