Win8 Strawberry 5.8.9.5 (32)  Mon 05/09/2022 19:13:22
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

my @array    = (9, 8, 7);
my $arrayref = \@array;

print  "elements of array: (@array) (@$arrayref) \n";

printf "number of array elements: %d %d \n",
        scalar(@array), scalar(@$arrayref);

print  "highest array index: $#array $#$arrayref \n";

^Z
elements of array: (9 8 7) (9 8 7)
number of array elements: 3 3
highest array index: 2 2