$ 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