use strict;
use warnings;

my @array = qw( Ernie Bert Fred Barney );
my $letzter = $array[-1];

print "Letzter: $letzter\n";