В Perl есть прекрасная возможность отсчитывать индексы не с начала массива, а с конца.
Пример:
my @languages = ('Perl','Python','Php');
say $languages[-3];
#тоже самое что и $languages[0] - выведет "Perl"
Для обращения к последнему элементу массива вместо конструкции:
$#languages;
#конструкция $#имя_массива - вернет последний индекс массива
Можно использовать вот такую:
$languages[-1];
Читайте еще: