@arr=('1', '2', '3');

test(\@arr);

sub test
{
	my $a=@_[0];

	print "\n@$a";

}