#! perl -sw
use strict;
use vars '*aref';

sub test{
	local(*aref) = shift;
	print  "$aref[$_]\n" for 0..@aref;
}

my(@array) = qw(one two three four five);

test(\@array);
__END__
C:\test>213248
one
two
three
four
five