my $var;
for my $c (1..10) {
     $var++;
}
print $var;   # prints 10