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