fruiture++

Using Deparse shows that that's just what happens:

perl -MO=Deparse scratch.pl

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