$ perl -w
use strict;

my $scalar = qw(A B C);
Useless use of a constant in void context at - line 3.
Useless use of a constant in void context at - line 3.
print $scalar, "\n";
C

##</code><code>##

$ perl -v

This is perl, v5.8.7 built for cygwin-thread-multi-64int
(with 1 registered patch, see perl -V for more detail)

##</code><code>##

$ perl -w
my $scalar = (1, 2, 3);
Useless use of a constant in void context at - line 1.