if (eval { %$ref || 1 }) {
   # Hash
   ...
} elsif (eval { @$ref || 1 }) {
   # Array
   ...
} else {
   ...
}