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