#!/usr/bin/perl -w

use strict;
use diagnostics;

my $hash = {  key1 => 'value1',
              key2 => 'value2',
              key3 => 'value3',
              key1 => 'value3',
              key1 => 'value33',
              key1 => 'value3',
              key2 => 'value3',
              key2 => 'value3',
              key4 => 'value3',
              key4 => '23232',
           };

#foreach (keys %{$hash})  {
#    print "$_ => ${$hash}{$_}\n";
#}

my %hist;
foreach (keys %{$hash}) {
   $hist{$_}++ for $_;
}


foreach (keys %hist) {
    print "$_ , $hist{$_}\n";
}



print "size of hash: " , keys(%{$hash}) . "\n";

././././perl.hash.basic.2
key2 , 1
key1 , 1
key4 , 1
key3 , 1
size of hash: 4