my %h = ( foo => 'foo123', bar => 'bar456', nak => '' );
print length delete $h{foo}, "\n";
print length delete $h{nak}, "\n";
print scalar @{[delete $h{bar}]}, "\n";
__END__
6
0
1