#!perl
use strict;
use warnings;
my @array = [];
print "With []: \|@array\|\n";
[b]print scalar(@array), "\n";[/b]
print "\n";
my @array1 = ();
print "With (): \|@array1\|\n";
[b]print scalar(@array1), "\n";[/b]
print "\n";
[b]my $aref = [];
print "With (): \|$aref\|\n";
print scalar(@$aref), "\n";[/b]