Select Code to Download

use Benchmark 'cmpthese';
my @a = map {"$_\n"} 1..1000000;
...
        close FILE;
        }
});

Benchmark: timing 100 iterations of array, forloop...
     array: 28 wallclock secs (22.62 usr +  2.74 sys = 25.36 CPU) @  3
+.94/s (n=100)
...
          Rate forloop   array
forloop 1.56/s      --    -61%
array   3.94/s    153%      --