use Devel::Size qw(total_size);
my $memory_used = total_size(\%hash);