#!/usr/bin/perl
my @arr1=();
push(@arr1,3);
push(@arr1,5);
push(@arr1,7);
push(@arr1,9);
my @arr2 = (3, 5, 7, 9);
my $ref1 = \@arr1;
my $ref2 = \@arr2;
print "\$ref1: $ref1 \n";
print "\$ref2: $ref2";

##</code><code>##

$ perl reftes.pl
$ref1: ARRAY(0x80071d38) 
$ref2: ARRAY(0x80071e40)