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