my %arg = %{$arg}; for (keys %arg) { ... }

##</code><code>##

for (keys %$arg) { ... }

##</code><code>##

die "No what I want!" unless (ref($arg) eq "HASH");