Array Perl

@array = (1, 2, 3);
$arrayref = \@array;
print @$arrayref[0];
print $arrayref->[0];