Ik vind deze toch ook erg mooi ... uit HOP blz 121 sub upto { my ($m, $n) = @_; return sub { return $m <= $n ? $m++ : undef; }; } my $it= upto( 3,5); while( defined( my $val = $it->())){ print "$val\n"; } er kan nog wat syntactic sugar overheen, maar ik vind het een beauty. Groet, Clemens