#!/usr/bin/perl
use warnings;
use strict;
use vars qw( $alias );

sub alias_to { \$_[0] }

my @array = qw( foo bar baz );
*alias = alias_to( $array[1] );

print "alias: $alias\n";

$alias = 'QUUX';
print "array: @array\n";