my @envArray = `rsh sdp1  su - oracle8 -c env `;

my @translated_env;   # Rather than '@array'.

foreach (@envArray) {

    if ( m{^( ORACLE_SID | ORACLE_HST_SID | ORACLE_HOME | SDP_HOME )=(.*)}ix ) {
        
        # Look, an oracle variable!

        my ($env_key, $env_value) = ($1, $2);    # $env_key rather than $temp

        # Tweak it...

        $env_key = lc($env_key);     
        $env_key =~ tr{_}{.};                    # Transliterate _ to .
        
        # And put it into our array.
        push(@translated_env,"$env_key=$env_value");


    }
    else {

        # Otherwise leave the environment variable unharmed.
        push(@translated_env,$_);

    }
}