#!perl -w
use strict;

my @array = qw(a b c d e f g);

my $ref = \@array;

print @$ref;