ごめん、表示のところがまずかった。
>>352 訂正

my $rank = 1; 
foreach(sort { @{$res_db{$b}} <=> @{$res_db{$a}} } keys %res_db){ 
  my $ra = \@{$res_db{$_}}; 
  my $res = ${$ra}[$#{$ra}]; 
  print "$rank: ID:$_(", scalar @{$res_db{$_}}, ") 最新書き込み:>>$$res->{no} $$res->{date}\n"; 
  $rank++; 
}