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

	return ($munge1, $munge2);
}
my ($a1, $a2) = Munger1($p1, $p2);