$r = (exists $ENV{INFORMIXSQLHOSTS}) ? $ENV{INFORMIXSQLHOSTS} : 'sqlhost') 

##</code><code>##

$r = ((exists $ENV{INFORMIXSQLHOSTS} && defined($ENV{INFORMIXSQLHOSTS}) && length($ENV{INFORMIXSQLHOSTS})  ) ? $ENV{INFORMIXSQLHOSTS} :  'sqlhost'));