foreach my $oid (values %{$ref->{OBJECT}}) {