Callsub($number, \@Somearray, \@Otherarray);
sub Callsub {
    my $number = shift;
    my @array = @{ +shift };
    my @array2 = @{ +shift };
    ....
}