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

##</code><code>##

sub recReverse
{
    my $ref2array = shift;
    return unless ref $ref2array eq 'ARRAY';
    @$ref2array = reverse @$ref2array;
    recReverse($_) for @$ref2array
}