#!/usr/bin/perl
use warnings;
use strict;
#My First Reference called ref1.pl!!
my $array = [qw(this is a test to check anonymous arrays)];
print "@{$array}\n";
print "$array->[3]\n"