Select Code to Download

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

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

foreach $id(@id)

foreach my $id(keys %id)

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

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

foreach $FTP_Lines(@FTP_Lines)
{
...
                               $id{$id}{transport};
  }
}