while (@_ = $cursor->fetchrow) {
  $freq{$_[0]}=$_[1];
}