for (keys %$p){ if ($p->{$_} == 0){} }