for (1..10000) { $var = \$var; }