print map( change($_, \@toFind, \@toChange), @animals );
...
sub change {
  my $str = shift;
  ... {
    $str =~ ...
  }
  return $str;
}