sub range {
  my($start, $end) = @_;
  return sub {
    return undef if $start > $end;
    return $start++;
  };
}

my $it = range(3, 5);
for (my $value; $value = $it->(); ) { say $value }