my @newArray =
  (
  map
    {my ($lhs, $rhs) = /(.*?)=(.*)/; $lhs =~ tr/_/./; "$lhs=$rhs"}
    @array
  );