use List::MoreUtils qw( apply );
%hash = apply { s/\s+//g } %hash;