for ( 0 .. 10 ) { my $i = 10 - $_; # do something }