UNIVERSAL::isa( $_[0], 'HASH' ) and ( my %hr = %{ shift() } or die;