my $rh_count = { } ;
if ( exists $rh_count->{$string} ) {
     $rh_count->{$string}++ ; #increment
} else {
     $rh_count->{$string}=1 ; #set to one 
}