while(`program args`)

##</code><code>##

{
  my @a = `program args`;
  while( @a ) {
    ...
  }
}