##
use strict;
use warnings;
my $cond = 0;
my @foo = 'foo';
my @bar = ( 'bar', @foo x !!$cond, 'baz' );
print join(q{,},@bar), "\n";
@bar = ( 'bar', (@foo) x !!$cond, 'baz' );
print join(q{,},@bar), "\n";
##
##
bar,,baz
bar,baz