sub hash_remove_key_space {
    my $in_hash = shift;
    %$in_hash = map {
        ( my $key = $_ ) =~ s/\s+//g;
        ( $key => $in_hash->{ $_ } )
        }
        keys %$in_hash;
}