Select Code to Download

#I get this
my @array = qw(aaa-aaa bbb-bbb ccc-ccc);
...
my $AoH_new = map { $_->{'title'} =~ s/-/_/g } @$AoH_orig; 
 
print Dumper($AoH_orig);