I'm not sure why you want to return a hash instead of a reference, but there's no need to create %ref or %rec.

    $dbh->disconnect();           
    return %$rec_ref unless $rec_ref->{company} eq '';
    return undef;
[download]

HTH,
Charles K. Clarkson
Clarkson Energy Homes, Inc.