use Storable;

my %a = (
'a' => 'something..',
'b' => 'something else..',
)

print length(Storable::freeze(\%a))."\n";