
my @foo=("one","two","three");
my @bar=("four","five");


my_blither(\@foo,\@bar);

sub my_blither {
	my($foo,$bar)=@_;

	print "test of foo"."@$foo\n";
	print "test of bar"."@$bar\n";

}
