Select Code to Download

foreach my $k ( keys %{HoH} ) 
{
    unless ( $HoH{$k} and values %{$HoH{$k}} ) 
...
       delete $HoH{$k};
    }
}

my %HoHCopy;
foreach my $k ( keys %HoH ) 
...
       $HoHCopy{$k} = $HoH{$k};
    }
}

my %HoHCopy = map
  { $_ => $HoH{$k} }
  grep {
...
    ? ($_ => $HoH{$k})
    : ()
  } ( keys %HoH );