$ 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
[download]

$ perl -v

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

By the way, this has nothing to do with qw.

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