s/([^=]+)/(my $lhs=$1) =~ tr:_:.:; $lhs/e for @envArray;