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