Win8 Strawberry 5.8.9.5 (32)  Mon 09/21/2020 19:49:29
C:\@Work\Perl\monks
>perl
use strict;
use warnings;

my $foo = 42;
my $bar = 137;

my $m;
$m = (1, 2, 3, $foo, 5, 6, $bar);
Useless use of a constant in void context at - line 8.
Useless use of a constant in void context at - line 8.
Useless use of private variable in void context at - line 8.
Useless use of a constant in void context at - line 8.
Useless use of a constant in void context at - line 8.
print $m;

__END__
137