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";