my %stathash; while () { $stathash{$_}++; }