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