[sid@nucleix scope]$ time perl hash.pl > A

real    0m0.103s
user    0m0.097s
sys     0m0.006s
[sid@nucleix scope]$ time perl array.pl > B

real    0m0.091s
user    0m0.086s
sys     0m0.005s