my %hashslice1 = map { /^NETWORK/
                           ? ($_, $hash{$_})
                           : (             )
                         } keys %hash;