my @fred = (1, 2, 3, 4, 5);
my $lastSub = $#fred;
print qq{$lastSub\n};