while (my $x = $iter->next() ){
  ...
}