You should read the file, line by line, parse the lines (with a regex? It depends on the format of the file; if it is a CSV file you could use Text::CSV) verify the status and increment the counter. The counter coud be a HoA: an hash whit userid as key and containing the reference to a two element array (i.e. $counter->{$userid}->[0] success, ...->[1] failure)