sub fillArrays {
    my( $r1, $r2 ) = @_;
    my @$r1 = qw(one two three);
    my @$r2 = qw(four five six seven);
    return;
}

my (@arr1,@arr2);
fillArrays( \@arr1, \@arr2 );