Also, instead of passing references to your subroutine, you'll be much better off returning a hash, potentially eliminating the $oracle and $informix variables in favor of a $database variable, which contains either "Oracle" or "Informix".