Select Code to Download

use Time::HiRes qw(gettimeofday);
use strict; use warnings;
...
foreach my $subR (\&pushInit, \&elInit, \&xInit, \&dotInit) {
    &timeSub($subR);
}

$ perl time-array-init.pl
push:   171028 microseconds
$a[$i]: 163881 microseconds
(1) x:  51077 microseconds
..:     70115 microseconds