Select Code to Download

  DB<173> use Time::HiRes qw/time/

...

  DB<176> @z=();$t=time; push @z, $a[$_] for $start..$end; print time-
+$t 
0.142512083053589

  DB<180> %h=(); $i=$start; $t=time; push @$_, $i++ for @h{@a[$start..
+$end]}; print time-$t
 => 1
0.427901983261108