#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use vars '@var';

my @array = qw( foo bar baz );
*var = alias_to(@array[1,2]);
print Dumper \@var;
$var[1] = 'silly me';
print Dumper \@array;

sub alias_to { \@_ }