$Indent = 2 unless defined $Indent;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use Data::Dumper;

use strict;
use warnings;
$Data::Dumper::Indent = 0;
my $a = ["a", "b", "c"];

print Dumper($a);