Select Code to Download

foreach (@nmap) {
   printf "%8s%12s%12s%16s\n", @port[$i], @protocol[$i], @pid[$i][1], 
+@app[$i];
   $i++;
}

foreach (@nmap) {
   my @pids = @pid[$i][1];
...
   }
   ++$i;
}