my $pcname;
foreach my $objItem (in $colItems) {
   next unless $objItem->{Description} eq "...";
   $pcname = $objItem->{DNSHostName};
   last;
}