# input
my @top = ();
my $max = 5; my $recno = 0;
while (my ($name,$pend,$run) = $sth->fetchrow_array){
  my $ix = ($recno > $max) ? $max : $recno ;
  $top[$ix][0]  = $name;
  $top[$ix][1] += $pend;
  $top[$ix][2] += $run;
  ++$recno;
}
$top[$max][0]  = 'other';

# output
for (@top){
  printf "| %-25s | %3d | %3d |\n",@$_;
}