for my $file_in_string_form ( @all_files ) {
  for my $crummy_good_ar (@corrections_to_make) {
    my ($crummy, $good) = @$crummy_good_ar;
    $file_in_string_form =~ s/$crummy/$good/ig;
  }
}