foreach my $sign (keys %charcount) { # Hier Dein code: # Zugriff auf die einzelnen counter mit: my $cnt = $charcount{$sign}; ..... }