Use of uninitialized value in delete at
Attempt to free unreferenced scalar

##</code><code>##

%hsh = qw(a 1 b 2 c 3 d 4);

for $key (%hsh) {
 delete $hsh{$key};
}
$num = %hsh;
print "$num\n";