Select Code to Download

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

foreach my $type (@type_order) {
  # Iterate over all items of that type 
...
  }
  .
  .