sub merge {
    my (@array1,@array2) = @_;