#!perl

use strict;
use warnings;

my @array = (1..10);
print $array[2], "\n";  # prints 3

my $ref = \$array[2];
$$ref = 11;
print $$ref, "\n";      # prints 11
print $array[2], "\n";  # prints 11