use strict;
use warnings;


my @a= (1, 2, 3, 4);

my $p= \$a[2];

print $$p;