use vars qw/%x/;

$x{test} = "very ";
$x{test}{this} = "strange";

print $x{test};
print $x{test}{this};