Select Code to Download

use Devel::Size qw(size);
my @array;
...
my $hash_size = size(\%hash);

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

use Devel::Size qw(size);
use Data::Dumper;
...
my $hash_size = size(\%hash);

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