Use a \

use strict;
use warnings;


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

my $p= \$a[2];

print $$p;
[download]

See perlreftut for details