@a= (1, 2, 3);
&test(@a);
sub test
{my (@b)= @_;
pirnt "@b";
}