for (1..10000000) {
    my $n = $_**2;
}