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