my @pcnames = map { $_->{DNSHostName} }
              grep { $_->{Description} eq "..." }
              in $colItems;

die("Unable to find network card\n");
   if @pcnames == 0;

warn("Found multiple network cards. Using the first one\n")
   if @pcnames != 1;

my $pcname = $pcnames[0];