Select Code to Download

#!/usr/local/bin/perl

...
        }
    }
}

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

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