How do I reverse a nested array?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to reverse an array:

my @ary = (1,2,[a,b,[],[3,4,[6]],c],45);
my @rev = reverse map [ reverse @$_ ], @ary;
[download]

But my output is: ([],[c,[[6],4,3],[],b,a,[],[]) How do I fix this?

Originally posted as a Categorized Question.