or download this
135 # new record is the highest
136 print "Begin: i=[$i], cur[2]=[",$cur[2],"], win[2]=[",
+$win[2], "]", "\n";
137 if ($cur[2] > $win[2]) {
...
141 $top2{$key1}{$key2} = [$votes_office_ttl,@win,@cur]
+;
142 };
143 print "End: i=[$i], cur[2]=[",$cur[2],"], win[2]=[", $w
+in[2], "]", "\n";