foreach my $type (@type_order) {
  print "$log_pre running $action for $type entries\n"; 
  # Iterate over all items of that type 
  my $type_hash = $hashref->{$type}; 
  next unless ref($type_hash) eq 'HASH'; # <-- add

##</code><code>##

foreach my $type (@type_order) {
  # Iterate over all items of that type 
  my $type_hash = $hashref->{$type}; 

  if ( (ref($type_hash) eq 'ARRAY') && (@$type_hash<2) ){
    print "Skipping empty pseudo-hash for $type entries\n";
    next;
  } else {
    print "$log_pre running $action for $type entries\n"; 
  }
  .
  .