#!/usr/bin/perl -l
my @a = qw(a b c);
my @b = \(@a);
print "\@a contains: @a";
print "\@b contains: @b";
__END__
@a contains: a b c
@b contains: SCALAR(0x811b15c) SCALAR(0x811b240) SCALAR(0x811b294)