#! perl -slw
use strict;

## substitute <DATA> for <> in 3 places to test 

for( 1 .. <> ) {
    my %h;
    for( 1 .. <> ) {
        $h{ $_->[0] } = $_->[1] for [ split ' ', <> ];
    }
    my $score = 0;
    /\+/ and ++$score or --$score for values %h;
    print $score;
}
__DATA__
3
4
tilak +
tilak +
tilak -
tilak +
3
ratna +
shashi -
ratna -
3
bhavani -
bhavani +
bhavani -