X:\>perl 1221949.pl
$val = bless( {}, 'tahash' );

Hey, someone scans my keys!
%hash = ();

The object is destroyed...

X:\>