my @array = () x 100;
cmpthese( 10000000,
          {head => sub{$array[0]},
          tail => sub{$array[99]}}
        );

          Rate tail head
tail 4992511/s   --  -3%
head 5149331/s   3%   --