#!/usr/bin/perl
use warnings;
use strict;

my @refarray1 = (qw[this is the first line],
                qw[Second one is here],
                qw[squint your eyes to see the third],
                qw[fourth is surely near],);
print "$refarray1[0]\n";

my $refarray2 = [qw[this is the first line],
                qw[Second one is here],
                qw[squint your eyes to see the third],
                qw[fourth is surely near],];
print "$refarray2->[0]\n";