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