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