sub upto {
    my $stop = $_[0];
    my $start = 0;
    for ($start..$stop) {
        yield $_
    };
};

for my $item (upto(5)) {
    print "At $item\n";
};

__END__
At 1
At 2
At 3
At 4
At 5