foreach (@nmap) {
   my @pids = @pid[$i][1];
   printf "%8s%12s%12s%16s\n", @port[$i], @protocol[$i], shift(@pids), @app[$i];
   for (@pids) {
      printf " " x 20 . %12s" . " " x 16 . "\n", shift(@pids);
   }
   ++$i;
}