>perl -wMstrict -le
"my $pid  = 'foo';
 my @resp = qw{ a b c };
 sub S { return qw{ FOO bar quux } }
 $pid, @resp = S();
 print qq{$pid @resp};
"
Useless use of private variable in void context at -e line 1.
foo FOO bar quux