use strict;
use warnings;
use Data::Dumper;
my @array = qw/This That Other/;
print Dumper @array;
print Dumper \@array;