Select Code to Download

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

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