配列のインデックスとして -1 を指定すると、配列の末尾の要素を参照することができます。
-1
my @arr = ('AAA', 'BBB', 'CCC'); print $arr[-1]; # 'CCC'
また、配列の末尾のインデックスは #$arr で取得できるので、これを利用して次のように書くこともできます。
#$arr
print $arr[#$arr];
