my (@x,@y);
@x =( "A" "B" "C");
@y =( "C" "D" "F");

&test(@x,@y):

sub &test{
 @test = @_[0];
 print "@test\n";
}