my @array = (1 ..4);
my $size = @array;
print "The size of array \@array is $size\n";

##</code><code>##

use Devel::Size 'size';
my @array = (1 ..4);
my $size = size(\@array);
print "The size of array \@array is $size\n";

##</code><code>##

my @array = (1 ..4);
my $ar_ref = \@array;
my $size = @$ar_ref;
print "The size of array \@array is $size\n";

use Devel::Size 'size';
my $memory = size($ar_ref);
print "The size of array \@array is $memory\n";