my @x = ( 6, 7, 8 );
my $last_element = (4, 5, @x)[-1];
my $as_scalar = (4, 5, @x);

print "last element: $last_element\n";
print "as scalar: $as_scalar\n";
__END__
last element: 8
as scalar: 3