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

##</code><code>##

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

$hash{'f'} = 140;
$array[141] = 142;
print Dumper @array;

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

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