$ perl -Mstrict -Mwarnings -E '
my @x = ( qw{a}, (), qw{c} );
say "@x";
'
a c