sunw287 ~ > perl -e '%globalHash=(one=>"two"); $ref=\%globalHash; undef(%globalHash); print join("\n",keys %{$ref})'
sunw287 ~ >