limit Most Recently Doomed to the 20 most doomed. the full report takes forever

reports.cgi

@@ -712,9 +712,14 @@ sub most_recently_doomed
         @people = sort bybugs @people;
         my $totalpeople = @people;
         
+        if ($totalpeople > 20) {
+            splice @people, 0, $totalpeople-20;
+            }
+                
         print "<TABLE>\n";
         print "<TR><TD COLSPAN=2>\n";
         print "$totalpeople engineers have $bugtotal untouched new bugs.\n";
+        print "These are the 20 most doomed.";
         print "</TD></TR>\n";
 
         while (@people)