for ( keys %hash ) {
  delete $hash{$_} if $hash{$_} == 0;
}