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