sub Munger4 {	
	my ($p1, $p2) = @_;
	#...
	my $munge1 = $p1.' or '.$p2;
	my $munge2 = $p2.' or '.$p1;

	return (\$munge1, \$munge2);
}
my ($ar7, $ar8) = Munger4($p1, $p2);