in reply to How do I get the last element of an array?

Here's a rather unconventional way:
push @array, my $val = pop @array;