use vars qw/%x/;

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

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

##</code><code>##

$x{test} = 'ENV';
$x{test}{important_key} = 'bad value';