$ perl -Mwarnings -Mstrict -MData::Dumper -E'
my @foo = ( [qw/ a b c /], undef );
say "@{ $_ // [] }" for @foo;
'
a b c