perl -we'use strict; sub foo {}; my $a; foo( %{ $a } )'

##</code><code>##

perl -MData::Dumper -we'use strict; my $a; $a->{b}{c}; print Dumper $a'
$VAR1 = {
          'b' => {}
        };