13:54 >perl -we "my $scalar = (2, 3, 4); print $scalar;"
Useless use of a constant (2) in void context at -e line 1.
Useless use of a constant (3) in void context at -e line 1.
4
13:54 >

##</code><code>##

14:00 >perl -we "my $scalar = (2, 1, 4); print $scalar;"
Useless use of a constant (2) in void context at -e line 1.
4
14:00 >

##</code><code>##

14:00 >perl -MO=Deparse -we "my $scalar = (2, 1, 4); print $scalar;"
Useless use of a constant (2) in void context at -e line 1.
BEGIN { $^W = 1; }
my $scalar = ('???', '???', 4);
print $scalar;
-e syntax OK

14:01 >perl -MO=Deparse -we "my $scalar = (2, 3, 4); print $scalar;"
Useless use of a constant (2) in void context at -e line 1.
Useless use of a constant (3) in void context at -e line 1.
BEGIN { $^W = 1; }
my $scalar = ('???', '???', 4);
print $scalar;
-e syntax OK

14:01 >