while ( my ( $org_id, $org_nm ) = $sth->fetchrow_array()) {
  $hasho{$org_id} = $org_nm;
}