while (my $num = $range->next) { }