Re: How do I reverse a nested array?

[extremely]

sub rev_arr {
    my $ar = shift;
    ref $ar eq 'ARRAY'
    ? [ map rev_arr($_), reverse @$ar ]
    : $_
}