24        if (/NAME_MAP/ .. /PORTS/) {
     25          next if (/NAME_MAP/);
     26          next if (/PORTS/);
     27          %mapping = split;
     28          @keys = sort keys %mapping;
     29          foreach $k1 (sort keys %mapping) {
     30              print "$k1 = $mapping{$k1}\n";
     31          }
     32        }