my $type = ref $first;
...
croak("...")
  unless $type eq 'HASH' or (ref($first) and UNIVERSAL::isa($first, 'HASH'))