for $i (0 .. $#p2) {
										#print "$p1[$i] vs $p2[$i]\n";
										$mism_pos{$i} = 1 if ($p1[$i] eq $p2[$i]);
									}
									#print sort keys %mism_pos,"\n";
									if (keys %mism_pos) {
										for $i (0..$#p2) {
											if (defined $mism_pos{$i}) {
												if (@new1 && @new2) {
													push @new,@new1,'and',@new2,$p2[$i];
													@new1=();
													@new2=();
												} 
												else {
													push @new,$p2[$i];
												}
											}
											else {
												push @new1,$p1[$i]; 
												push @new2,$p2[$i];
											} 
										}
									}