my %small_hash =
        map { $_ => $hash{$_} }
        grep { $hash{$_} }
        @interesting_keys;