while ( ($x) = shift @a ) {
  ...
}