Select Code to Download

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

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

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

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

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

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

use strict;
use warnings;
...
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");

v:  vvv
cv: vvv
...

l:  lll
cl: lll

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

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