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