use Devel::Size qw(size);
my @array;
my %hash;

my $array_size = size(\@array);
my $hash_size = size(\%hash);

print "Array: $array_size, Hash: $hash_size\n";