for( my $x = iter(1,10); $x; $x++ ) {
    print "$x\n";
}