sub Munger3 {
	my ($p1, $p2) = @_;
	#...
	$_[2] = $p1.' or '.$p2;
	$_[3] = $p2.' or '.$p1;
}
Munger2($p1, $p2, $a5, $a6);