use List::Util qw( first );

my $pcname = map { $_->{DNSHostName} }
             first { $_->{Description} eq "..." }
             in $colItems;