use Devel::Size qw(total_size);

# code by perrin

my $size_rec_hash = total_size(\%record);
my $size_flag_hash = total_size(\%flag);
print "Total size: $size_rec_hash + $size_flag_hash =", 
    $size_rec_hash + $size_flag_hash, "\n";