Lines Matching refs:two

29 		my $two = $1;
34 		$old{$two}{two} = $two;
35 		$old{$two}{three} = $three;
36 		$old{$two}{number} = $number;
37 		$old{$two}{name} = $name;
59 		my $two = $2;
64 		$new1{$two}{two} = $two;
65 		$new1{$two}{three} = $three;
66 		$new1{$two}{number} = $number;
67 		$new1{$two}{name} = $name;
89 		my $two = $a[1];
92 		$new2{$two}{two} = $two;
93 		$new2{$two}{name} = $name;
99 	foreach my $two (sort(keys(%old))) {
100 		if (!defined $new1{$two}) {
101 …print "In old but not new1: $old{$two}{two}\t$old{$two}{three}\t$old{$two}{number}\t$old{$two}{nam…
104 		if (!defined $new2{$two}) {
105 			print "In old but not new2: $old{$two}{two}\t$old{$two}{name}\n";
114 	foreach my $two (sort(keys(%new1))) {
115 		next if (defined $old{$two});
116 …print "In new1 but not old: $new1{$two}{two}\t$new1{$two}{three}\t$new1{$two}{number}\t$new1{$two}…
124 	foreach my $two (sort(keys(%new2))) {
125 		next if (defined $old{$two});
126 		print "In new2 but not old: $new2{$two}{two}\t$new2{$two}{name}\n";
134 	foreach my $two (sort(keys(%old))) {
135 		if (defined $new1{$two}) {
136 			if ($old{$two}{two} ne $new1{$two}{two} ||
137 			    $old{$two}{three} ne $new1{$two}{three} ||
138 			    $old{$two}{number} ne $new1{$two}{number} ||
139 			    lc($old{$two}{name}) ne lc($new1{$two}{name})) {
140 				print "In old : $old{$two}{two}\t$old{$two}{three}\t$old{$two}{number}\t$old{$two}{name}\n";
141 				print "In new1: $new1{$two}{two}\t$new1{$two}{three}\t$new1{$two}{number}\t$new1{$two}{name}\n";
151 	foreach my $two (sort(keys(%old))) {
152 		if (defined $new2{$two}) {
153 			if ($old{$two}{two} ne $new2{$two}{two} ||
154 			    lc($old{$two}{name}) ne lc($new2{$two}{name})) {
155 				print "In old : $old{$two}{two}\t$old{$two}{name}\n";
156 				print "In new2: $new2{$two}{two}\t$new2{$two}{name}\n";