string1 10
string2 30
string1 0
string4 39
string9 345

##</code><code>##

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