open X,'karma.txt';undef$/;
my %x=split/\s+/,<X>;
$x{$user}++;
close X;open X,'>karma.txt';
print X "$_ $x{$_}\n" for keys %x;
close X;