$name{(split/\|/)[0]} += 1;