$ perl -Mstrict -Mwarnings -le 'my (@x, @y); @x = ( "A", "B", "C" ); @y = ( "C", "D", "F" ); &test( @x, @y, ); sub test { my @test = @_[0]; print "@test\n"; }'
Scalar value @_[0] better written as $_[0] at -e line 1.
A