C:\Documents and Settings\user>perl -
@array = (1,2,3,4);
my $x_ref = [@array];
print "$x_ref\n";
print "@$x_ref\n";
__END__
ARRAY(0x282a374)
1 2 3 4