process_something($scalar1, $scalar2, \@list1, \@list2);

sub process_something
{
    my ($scalar1, $scalar2, $ra_list1, $ra_list2) = @_;
    my @list1 = @$ra_list1;
    my @list2 = @$ra_list2;
}