Win8 Strawberry 5.8.9.5 (32)  Fri 08/05/2022 17:16:08
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

my $arrayref = [ ];  # ref. to zero length array

print "$arrayref \n";
print "length non-zero \n" if length $arrayref > 1;

^Z
ARRAY(0x613824)
length non-zero

##</code><code>##

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