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};
  }
}