my %frequency;
while(<>) {
    my @column = split ' ' or next;
    $frequency{$column[2]}++;
}