Select Code to Download

use Data::Dumper;
my @names = (1, 2, 3, [4, 5, 6, [7, 8, 9], 10], 11, 12, [13, 14]  );
print Dumper(@names);
...
        }
        return $arr;
}

# Extremely_5a   209644/s
sub rev_arr5a {
      return [map { ref eq 'ARRAY' ? rev_arr5a($_) : $_ } reverse @{$_
+[0]}];
}