--- Query-orig.pm	2008-08-30 20:18:29.000000000 -0400
+++ Query.pm	2008-08-30 20:21:10.000000000 -0400
@@ -180,6 +180,7 @@
 	if (defined($1)){
 		my @his = split(/<\/td><\/tr>/,$1);
 		my $n = 0;
+        for my $i (0..10) { $res{ "history_$i" } = ''; }
 		foreach $row (@his){
 			$n++;
 			if ($row =~ m/<tr class=TB(.*)><td><a href="\/netblock\?q=(.*)">(.*)<\/a><\/td><td>(\d+)\.(\d+)\.(\d+)\.(\d+)<\/td><td>(.*)<\/td><td>(.*)<\/td><td>(.*)/){