Select Code to Download

Select or download this
```
@x = ( f(), g(), h() );
```
Select or download this
```
$x = ( f(), g(), h() );
```
Select or download this
```
( f(), g(), h() );
1;
```
Select or download this
```
sub { ( f(), g(), h() ) }
```
Select or download this
```
@x = sub { ( f(), g(), h() ) }->();
```
Select or download this
```
$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");

Select or download this
```
v:  vvv
cv: vvv
...

l:  lll
cl: lll
```

Select or download this

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

Select or download this

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