sub Munger2 {				
	my ($p1, $p2, $m1, $m2) = @_;
	#...
	$$m1 = $p1.' or '.$p2;
	$$m2 = $p2.' or '.$p1;
}
Munger2($p1, $p2, \$a3, \$a4);