use Data::Dumper;
$Data::Dumper::useqq = 1; # Danke pq
print Dumper \@array;