Select Code to Download

my $hashref = { 'key' => 'value' };

...
# - or -
use List::Util qw/sum/;
my $sum3 = sum map {length} %$hashref;

my $sum4 = 0;
while ( my ($k, $v) = each %$hashref )
    { $sum4 += length($k) + length($v) }