$hash{$_} = undef for grep { /^v/ } keys %hash;