@a = 1 .. 1e3;; $t = time; @a = reverse @a; print time() - $t;; 0.000192165374755859 $t = time; @a = reverse @a; print time() - $t;; 0.000243186950683594 $t = time; @a = reverse @a; print time() - $t;; 0.000186920166015625