Select Code to Download

  DB<100> @result=([1..3],[4..6],[7..9])
 => ([1, 2, 3], [4, 5, 6], [7, 8, 9])
...
          ]
        ];
 => 1

  DB<118> $Data::Dumper::Indent=0
 => 0
...
  DB<120> print Dumper \@result
 => 1
[[1,2,3],[4,5,6],[7,8,9]]