>perl -MData::Dumper -e"grep { 0 } @h{qw(a b)}; print Dumper \%h;"
$VAR1 = {
          'a' => undef,
          'b' => undef
        };