my $n = 100;
my $c = 0;
foreach (0 .. $n) {
    $c++;
}
print "$c\n";