%hash = map { my $s=$_; $s=~s/\s+//g; $s } %hash;