if (ref $r ne 'HASH' && ref $r ne 'ARRAY' && ref $r ne 'CODE' && ref $r ne 'SCALAR' && ref $r ne 'GLOB')