my %cons;
while(<>) { 
    my @vals = split /\|/;
    if( $vals[9] eq 'RIGHTRECORD' ) { 
        $cons{$vals[5]}++;
    }
}