perl -MO=Deparse scratch.pl

$a{'test'} = 'very ';
$a{'test'}{'this'} = 'strange';
print $a{'test'};
print $very {'this'};