Help for this page
if(exists $myhash{$key}) { ... { $myhash{$key} = 1; }
$myhash{$key} = $myhash{$key} + 1;