Grab the Lexical::Alias module. Example:

#!/usr/bin/perl -w
use strict;
use Lexical::Alias;
my @array = (1,2,3,4);
my $alias;
alias($array[2], $alias);
$alias = 42;
print "@array : $alias\n";
$array[2] *= 10;
print "@array : $alias\n";
__END__
# output:
1 2 42 4 : 42
1 2 420 4 : 420
[download]