for (@$AoH_orig) { $_->{title} =~ s/-/_/g; }

##</code><code>##

my $AoH_new = [ map { my %tmp = %$_; $tmp{title} =~ s/-/_/g; \%tmp } @$AoH_orig ];