>perl -wMstrict -MData::Dump -le
"sub fillArrays {
   my( $r1, $r2 ) = @_;
   @$r1 = qw(one two three);
   @$r2 = qw(four five six seven);
   }
 ;;
 fillArrays( \my (@arr1, @arr2) );
 ;;
 dd \@arr1, \@arr2;
"
(["one", "two", "three"], ["four", "five", "six", "seven"])