use Data::Dumper;

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

print Dumper($a);