Select Code to Download

$Indent = 2 unless defined $Indent;

  if ($Indent > 0) {
    $s->{xpad} = "  ";
    $s->{sep} = "\n";
  }

$VAR1 = [          'a',          'b',          'c'        ];

$VAR1 = ['a','b','c'];

use Data::Dumper;

...
my $a = ["a", "b", "c"];

print Dumper($a);