use constant (p_name   => 0,
              p_cap    => 1,
              p_res    => 2,
              p_length => 3,
              p_driver => 4);

push @{$NetStats[ $NetFanout ] ||= []}, [ $NetName, $NetCap, $NetRes, $NetLength, $FirstDriver, ];