See the below code,

open(INP, "Test.txt") || die "can't open input file";
my %occuranceCounter;
my %tidOccurance;

while (<INP>)
{
    if (/\-\-(TID\d+-\d+\@[\d\.]+ \d+)\-\-([^\n]+)\n/)
    {
        $tidOccurance{$1}=1;
        $occuranceCounter{$2}=$occuranceCounter{$2}+1;
    }
}

#print outputs
foreach my $occurance (keys %occuranceCounter)
{
    print "$occurance: ".$occuranceCounter{$occurance}."\n";
}
print "Tid unique occurances is ".scalar(keys(%tidOccurance));
[download]