Select Code to Download

#! /usr/bin/perl
use strict;
...
{
print "$array[$_]=>$_", "\n";
}

#! /usr/bin/perl
use strict;
...
{
print "$hash{$_}=>$_", "\n";
}

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

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