foreach $KeyNetName (keys %NetStatsHash) {
      foreach $KeyFanOut ( keys %{ $NetStatsHash{$KeyNetName} } ) {
        $OkayToAdd = 0;
        if ($KeyFanout == $i) {
            $NetCap = $NetStatsHash{$KeyNetName}{$KeyFanOut}{Cap};
            $NetRes = $NetStatsHash{$KeyNetName}{$KeyFanOut}{Length};
### etc.
      }