while () { ## extract NAME from the record ## count it $names{$name}++; }