Select Code to Download

my @x = ( 6, 7, 8 );
my $last_element = (4, 5, @x)[-1];
...
__END__
last element: 8
as scalar: 3