my  %hash = ( A => 1 ,B => 2,C => 3);
my  $var = %hash;
 print $var;          prints 3/8

##################################
my  %hash = ( A => 1,
             B => 2,
             C => 3,
             D => 4,
             E => 5);

my $var = %hash;
 print $var;         #prints 3/8