my %hash2;
map { $hash2{$_} = $hash{$_} if /^NETWORK/ } keys %hash;

##</code><code>##

my %hash2;
{ $hash2{$_} = $hash{$_} if /^NETWORK/ } foreach keys %hash;