@stuff = "This","That","Other"; 

##</code><code>##

>perl -wMstrict -MO=Deparse,-p -le
"my @stuff = 'One', 'Two', 'Three';
 print qq{(@stuff)};
 ;;
 my @stoff = scalar('Eine', 'Zwei', 'Drei');
 print qq{(@stoff)};
 ;;
 my @sniff = scalar(my @snarf = '111', '222', '333');
 print qq{sniff: (@sniff)   snarf: (@snarf)};
 ;;
 my @stiff = ('Uno', 'Dos', 'Tres');
 print qq{(@stiff)};
"
Useless use of a constant (Eine) in void context at -e line 1.
Useless use of a constant (Zwei) in void context at -e line 1.
Useless use of a constant (222) in void context at -e line 1.
Useless use of a constant (Two) in void context at -e line 1.
Useless use of a constant (Three) in void context at -e line 1.
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
((my(@stuff) = 'One'), '???', '???');
print("(@stuff)");
(my(@stoff) = scalar(('???', '???', 'Drei')));
print("(@stoff)");
(my(@sniff) = scalar(((my(@snarf) = '111'), '???', '333')));
print("sniff: (@sniff)   snarf: (@snarf)");
(my(@stiff) = ('Uno', 'Dos', 'Tres'));
print("(@stiff)");
-e syntax OK

>perl -wMstrict -le
"my @stuff = 'One', 'Two', 'Three';
 print qq{(@stuff)};
 ;;
 my @stoff = scalar('Eine', 'Zwei', 'Drei');
 print qq{(@stoff)};
 ;;
 my @sniff = scalar(my @snarf = '111', '222', '333');
 print qq{sniff: (@sniff)   snarf: (@snarf)};
 ;;
 my @stiff = ('Uno', 'Dos', 'Tres');
 print qq{(@stiff)};
"
Useless use of a constant (Eine) in void context at -e line 1.
Useless use of a constant (Zwei) in void context at -e line 1.
Useless use of a constant (222) in void context at -e line 1.
Useless use of a constant (Two) in void context at -e line 1.
Useless use of a constant (Three) in void context at -e line 1.
(One)
(Drei)
sniff: (333)   snarf: (111)
(Uno Dos Tres)