mysub([1..5],[6..9]);
sub mysub {
    my @array1 = @{$_[0]};
    my @array2 = @{$_[1]};
}