if (exists($hash->{$cur})) { $hash->{$cur}++; } else { $hash->{$cur} = 1; } #### $hash->{$cur}++;