$result{$key} = 1 and then $result{$key}++ will leave you with $result{$key} == 2 no matter how many times called. Plus, this doesn't account for duplicates in files.