Select Code to Download

{
    local $" = "\n";
    print PROG "@array\n";
}

print PROG join( "\n", @array), "\n";

use Benchmark;
for ( 1..1000000 ) {
...
  join: 45 wallclock secs (44.04 usr +  0.01 sys = 44.05 CPU) @  2.27/
+s (n=100)
 local: 45 wallclock secs (44.51 usr +  0.00 sys = 44.51 CPU) @  2.25/
+s (n=100)
manual:275 wallclock secs (274.17 usr+  0.04 sys = 274.21 CPU) @  0.36
+/s (n=100)