$ perl -MData::Dumper -Mstrict -wE 'my $foo = {}; say for @{ $foo->{bar} }; say Dumper $foo'
$VAR1 = {
          'bar' => []
        };