my $c = 10;
print "$c\n" while $c --> 0;