sub get_iter
{
  my ($subref) = @_;
  my $i = 0;

  return sub {
    print "f($i) is ", &$subref($i++), "\n";
  }
}

my $iter = &get_iter(sub {shift; $_*2});

for (0..20) {
  &$iter;
}