Look Ma, no yield!

noyield.pl

sub generiere_eins_bis_drei {
    $i = 0;
    return sub {
        return if $i > 2;
        return ++$i;
    }
}

$generator = generiere_eins_bis_drei;
while ($wert = $generator->()) {
    print "$wert\n";
}