use Data::Dump;

my $h;
my @a;
while(<DATA>) {
  if (/^object (.*)/) {
    $h = {};
    push @a,$h;
    $h->{object} = $1;
  }
  $h->{$1}       = $2 if /^\s+(\w+) (.*)/;
}

dd \@a;

__DATA__
object network Microsoft.Lync.Host.3
 host 138.108.25.111
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.4
 host 138.108.25.112
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.5
 host 138.108.25.113
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.6