Win8 Strawberry 5.30.3.1 (64)  Fri 08/05/2022 17:39:54
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

my $arrayref = [ 9, 8, ];  # ref. to NON-zero length array

printf "number of elements of referenced array: %d \n", scalar      @$arrayref;
printf "number of elements of referenced array: %d \n", 0 +         @$arrayref;
printf "number of elements of referenced array: %d \n", scalar keys @$arrayref;
print  "number of elements > 1 \n" if @$arrayref > 1;
print  "number of elements > 1 \n" if keys @$arrayref > 1;

^Z
number of elements of referenced array: 2
number of elements of referenced array: 2
number of elements of referenced array: 2
number of elements > 1
number of elements > 1