my %new = map { (join ' ', @$old{$_}), $_ } keys %old;