use Data::Dumper;
no strict 'refs';
$x = 2;
$x->{hrm} = "weird";

print "", Dumper([%{2}]), "\n";  # odd