my @array = qw/one two three four five/;
print $array[-1];
__OUTPUT__
five