ref is handy:

foreach my $key (keys %$data)
{
  my $thing = $data->{$key};
  if (ref $thing  eq 'HASH')
  {
    useThingAsHashRef($thing);
  }elsif (ref $thing eq 'ARRAY')
  {
    useThingAsArray($thing);
  }
}
[download]