#!/usr/bin/env perl -l

use strict;
use warnings;

my @array = (1, 2, 3);

my $array_ref_1 = \@array;
my $array_ref_2 = [@array];
my $array_ref_3 = [1, 2, 3];

my $array_ref_ref = [\@array];

use Data::Dumper;

print '*** $array_ref_1  = \@array ***';
print Dumper $array_ref_1;

print '*** $array_ref_2 = [@array] ***';
print Dumper $array_ref_2;

print '*** $array_ref_3 = [1, 2, 3] ***';
print Dumper $array_ref_3;

print '*** $array_ref_ref = [\@array] ***';
print Dumper $array_ref_ref;

my $array_ref_1_new = \@array;
my $array_ref_2_new = [@array];
my $array_ref_3_new = [1, 2, 3]; 

print "\n";
print 'SAME: $array_ref_1 and $array_ref_1_new';
print "SAME: $array_ref_1 and $array_ref_1_new";

print "\n";
print 'DIFF: $array_ref_2 and $array_ref_2_new';
print "DIFF: $array_ref_2 and $array_ref_2_new";

print "\n";
print 'DIFF: $array_ref_3 and $array_ref_3_new';
print "DIFF: $array_ref_3 and $array_ref_3_new";

print "\n";
print 'SAME: $array_ref_1 and $array_ref_1_new and $array_ref_ref->[0]';
print "SAME: $array_ref_1 and $array_ref_1_new and $array_ref_ref->[0]";