@ret = somesub();
if (ref $ret[0] eq 'HASH') { .... }
elsif (ref $ret[0] eq 'ARRAY') { .... }