#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $array = ["Test1", "Test2"];

print $array . "\n";

print Dumper $array;

__DATA__

$ perl test.pl
ARRAY(0x83b178)
$VAR1 = [
          'Test1',
          'Test2'
        ];