#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(cmpthese);

my @array = (1..10);
my $test = 9;

cmpthese(
  10000000,
  {
     negativ => sub{ my $x = $array[-2] },
     minus   => sub{ my $x = $array[$test-1] },
  }
);