sub create_iterator{
     my $val = shift;
     return sub { return $val += 2;}
}
my $iter_even = create_iterator(0);
my $iter_odd = create_iterator(1);