my $w =  'x'  x 5; say "$w";   # Scalar context, no parens.
my $x = ('x') x 5; say "$x";   # Scalar context, parens.
my @y =  'x'  x 5; say "@y";   # List context, no parens.
my @z = ('x') x 5; say "@z";   # List context, parens.
__END__
xxxxx
xxxxx
xxxxx
x x x x x