Help for this page
if (exists($hash->{$cur})) { $hash->{$cur}++; ... else { $hash->{$cur} = 1; }
$hash->{$cur}++;