my %newhash1 = map  { $_=>$hash{$_} }
                   grep { /^NETWORK/    }
                   keys %hash;