while( my ( $a ) = @a ? shift @a : () ) {
    # ...
}