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