my @newarray = reverse (@$ref2array);
        $ref2array = \@newarray;