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

my $msg = ['apple', 'banana', 'orange']; # array reference
my @msg = @$msg;		     # dereferncing the arreay ref

print "Dereferenced: @msg\n";

print join("\n",@$msg);						# prints the array elements sperated by "\n".