@array = q( bonk blip beep bork );
my $last = $array[-1];