sub Ref_receiver{
 my ($ref1,$ref2)=@_; # What we get are SCALARs, each of which is a reference to an array
   print $ref1->[0]; # prints 33
}

my (@x,@y);
$x[0]=33;
Ref_receiver (\@x, \@y); # Pass REFERENCES to the arrays @x, @y