This is a FAQ: Answer: How do I find the index of the last element in an array? (There are multiple answers here)
This may not be the answer you're seeking: if not, please clarify your question.
Update: And this may clarify the answers (here and above):
#!/usr/bin/perl
use 5.018;
use strict;
use warnings;
# 1164677
my @numbers = (15,5,7,3,9,1,20,13,9,8,15,16,2,6,12,90);
(my @newstring) = sort {$a <=> $b} @numbers;
for (@newstring) {
print "$_ ";
}
say "\nNumber of elements: " . @newstring; # number of e
+lements
my $lastindex = $#newstring;
say "\$lastindex: $lastindex";
say "minus 2: " . $newstring[-2]; # "@a" provokes an "unintended in
+terpolation" warning
say "minus 1: " . $newstring[-1];
=head output
1 2 3 5 6 7 8 9 9 12 13 15 15 16 20 90
Number of elements: 16
$lastindex: 15
minus 2: 20
minus 1: 90
=cut
Spirit of the Monastery
If I've misconstrued your question or the logic needed to answer it, I offer my apologies to all those electrons which were inconvenienced by the creation of this post.