foreach my $o (keys %{$hash_pos{$id}->{$p}}){
                $hash_stop{$p}->{$o}=1;