perl -we 'my %h; my @x = ( @{$h{a}} )'

##</code><code>##

perl -wE 'my %h; foreach $x ( @{$h{a}} ) { say $x }; exists $h{a} and print "true\n"'