@x = ( f(), g(), h() );

##</code><code>##

$x = ( f(), g(), h() );

##</code><code>##

( f(), g(), h() );
1;

##</code><code>##

sub { ( f(), g(), h() ) }

##</code><code>##

@x = sub { ( f(), g(), h() ) }->();

##</code><code>##

$x = sub { ( f(), g(), h() ) }->();

##</code><code>##

use strict;
use warnings;

sub cx { 
   print !defined(wantarray()) ? 'v'
       : !wantarray()          ? 's'
       :                         'l';
}

my ($x, @x);

print('v:  ');             ( cx(), cx(), cx() )      ;  print("\n");
print('cv: ');       sub { ( cx(), cx(), cx() ) }->();  print("\n\n");
print('s:  ');  $x =       ( cx(), cx(), cx() )      ;  print("\n");
print('cs: ');  $x = sub { ( cx(), cx(), cx() ) }->();  print("\n\n");
print('l:  ');  @x =       ( cx(), cx(), cx() )      ;  print("\n");
print('cl: ');  @x = sub { ( cx(), cx(), cx() ) }->();  print("\n");

##</code><code>##

v:  vvv
cv: vvv

s:  vvs   \ mismatch
cs: sss   /

l:  lll
cl: lll

##</code><code>##

use strict;
use warnings;

my $x;
$x =       ( 'abc', 'def' )      ;  # Warns
$x = sub { ( 'abc', 'def' ) }->();  # Doesn't warn

##</code><code>##

Useless use of a constant in void context at line 5.