$NetNameAndFanout = join (" ",$NetName,$NetFanout);
$NetStatsHash{$NetNameAndFanout} = join (" ",$NetCap,$NetRes,$NetLength,$FirstDriver);

##</code><code>##

$NetStatsHash{$NetName}{$NetFanout}{Cap}    = $NetCap;
$NetStatsHash{$NetName}{$NetFanout}{Length} = $NetLength;
$NetStatsHash{$NetName}{$NetFanout}{Driver} = $FirstDriver;

##</code><code>##

    foreach $KeyNetName (keys %NetStatsHash) {
        @KeyEntries = split (/\s+/,$MasterKey);
        $KeyNetName = $KeyEntries[0];
        $KeyFanout = $KeyEntries[1];
        $OkayToAdd = 0;
        if ($KeyFanout == $i) {
            @NetDetails = split (/\s+/,$NetStatsHash{$MasterKey});
            $NetCap = $NetDetails[0];
            $NetRes = $NetDetails[1];
### etc.

##</code><code>##

    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.
      }