Select Code to Download

sub recReverse
{
...
    @$ref2array = reverse @$ref2array;
    for (@$ref2array) { recReverse $_ if ref $_ eq 'ARRAY' }
}

sub recReverse
{
...
    @$ref2array = reverse @$ref2array;
    recReverse($_) for @$ref2array
}