sub listy(\@){
	print join("*",@{$_[0]}),"\n";
}
listy @array;