sub get_iter {
   my $pass = 0;
   return sub {
      ++$pass;
      return if $pass > 2;
      print("Before $pass: ");
      return $pass;
   }
}

my $i = get_iter();
while ($_ = $i->()) {
   print("$_\n");
}