# WTF if ( defined $r && ref $r && ref $r eq 'HASH' && keys %$r ) { ... }