This is one way:

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

What happens is you are associating the result to an anonymous array (@_)