use strict;
use warnings;

my %hash;
my $key;

while (<DATA>) {
	if (/object-group\s+(\w+)\s+(.*)/) {
		$key = $2;
		$hash{$key}{type} = $1;
	} elsif (/\Q$hash{$key}{type}\E-object\s+(.*)/) {
		push @{$hash{$key}{array_of_entries}}, $1;
	}
}

use Data::Dumper;
print Dumper(\%hash);

__DATA__
object-group service DM_SERVICE_7
 service-object tcp eq 1433
 service-object tcp eq 49160
 service-object tcp eq 8086
object-group network Employees
 description Employees
 network-object 10.10.12.0 255.255.255.0
 network-object 10.11.12.0 255.255.255.0