$ perl -MDevel::Size=total_size -l -
%f = qw/ AAA BBB /; $q = bless{ qw/ CCC DDD / }, q/TheQ/;
print for total_size(\%f ), total_size($q);
__END__
137
137