my $x;
$x->{foo};
print $x; # it's a hash!