if (/D_NET/) {
           my @anet = split;
           %nets = ($anet[1] , $anet[0]);
           for $n (sort keys %nets) {
              print "$mapping{$n}\n";
           }
       }