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