use strict;
use warnings;

my @var=(1,2,3);
my $var_ref=\@var;
print "$var_ref\n";
print 0+$var_ref . "\n";

##</code><code>##

ARRAY(0x182f26c)
25358956