while ( my ( $key, $value ) = each %{ $hoh{$sid} } ) {
...
}