sub list_range {
  my($start, $end) = @_;
  return sub { $start .. $end };
}

my $lit = list_range(3, 5);
for ($lit->()) { say $_ }