my %items;

while (my $line = <>) {
    my @fields = split (/\|/, $line);
    next unless ($fields[9] eq 'RIGHTRECORD');
    $items{$fields[5]}++;
}

printf "%3i : %s\n", $items{$_}, $_ foreach keys %items;
printf "\nTotal Unique: %i\n", scalar keys %items;
[download]