Select Code to Download

use strict;
use warnings;
...
print "Dumpvalue:\n";
Dumpvalue->new->dumpValue( $ref );

Dumpvalue:
'a' => ARRAY(0x460ee8)
...
         1  8
         2  9

use strict;
use warnings;
...
print "Data::Dumper:\n";
print Dumper( $ref );

Data::Dumper:
$VAR1 = {
...
                 ]
        };

use strict;
use warnings;
...
print "YAML::Dump:\n";
print Dump( $ref );

YAML::Dump:
---
...
      - 8
      - 9

use strict;
use warnings;
...
print "Data::Dump::Streamer:\n";
print Dump( $ref );

Data::Dump::Streamer:
$HASH1 = {
...
                ]
         };

use strict;
use warnings;
...
  GraphViz::Data::Structure->new( $data_structure, Orientation => 'ver
+tical' );
print $gvds->graph()->as_png("gvds.png");

use strict;
use warnings;
...
my $graph = GraphViz::Data::Grapher->new($structure);
print $graph->as_png("gvdg.png");