in reply to How do I reverse a nested array?

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

[download]

In Section Seekers of Perl Wisdom