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