while (@a) {
    my $a = shift @a;
    # Use $a ...
}