$ID = $Fields[6];
push (@id, $ID);

##</code><code>##

$ID = $Fields[6];
$id{$ID}{count}++;  # keep track of unique ID counts

##</code><code>##

foreach $id(@id)

##</code><code>##

foreach my $id(keys %id)

##</code><code>##

$id{$id}{transport} = $TRANSPORT;

##</code><code>##

printf "%-20s %5d %10s\n", $id, $id{$id}{count}, $id{$id}{transport};

##</code><code>##

foreach $FTP_Lines(@FTP_Lines)
{
  chomp $FTP_Lines;
  @FTP_fields = split (/\;/, $FTP_Lines);
  if ( defined($id{$FTP_fields[0]} )
  {
    $TRANSPORT = $FTP_fields[7];
    $id{$id}{transport} = $TRANSPORT;
    printf "%-20s %5d %10s\n", $id, $id{$id}{count},
                               $id{$id}{transport};
  }
}