pass1value("hello world");
print "\n\n";
passmanyvalues("handle ","like ","a array.\n");


sub pass1value {		# take in 1 variable, default is in an array form
	my($input1) = @_;   # pass in 1 variable
	print $input1;
}


sub passmanyvalues {	#default array form
	my($input1, $input2, $input3) = @_;
	print $input1;
	print $input2;
	print $input3;
}