my ($number, @array1, @array2) = @_;