>>345
これでいいんじゃないかな？　わざわざ配列つくらんでも。

#IDごとの書き込みランキングを表示
$rank = 1;
for(sort{$id_count{$a} <=> $id_count{$b} keys %id_count ) {
  $res = $id_to_last_res{$_};
  print "$rank: ID:$_($id_count{$_}) 最新書き込み:>>$$res->{no} $$res->{date}\n";
  $rank++;
}