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