my $AoH_new = map { $_->{'title'} =~ s/ /_/g } @$AoH_orig;