#!/usr/bin/perl use strict; use warnings; use Data::Dumper::Perltidy; $Data::Dumper::Perltidy::ARGV = '-i=4 -boc -nopro'; my $data = [ [ [[[[["a", "b"], "c"], ["d", "e"]], [[["f", "g"], "h"], [["i", "j"], ["k", ["l", "m"]]]]], ["n", [[["o", "p"], "q"], ["r", "s"]]]], ["t", ["u", "v"]] ], [["w", ["x", "y"]], "z"] ]; print Dumper $data; __END__ #### $VAR1 = [ [ [ [ [ [ [ 'a', 'b' ], 'c' ], [ 'd', 'e' ] ], [ [ [ 'f', 'g' ], 'h' ], [ [ 'i', 'j' ], [ 'k', [ 'l', 'm' ] ] ] ] ], [ 'n', [ [ [ 'o', 'p' ], 'q' ], [ 'r', 's' ] ] ] ], [ 't', [ 'u', 'v' ] ] ], [ [ 'w', [ 'x', 'y' ] ], 'z' ] ];