my $hashref1 = $memd->stats();
   while ( my ($k,$v) =  each %$hashref1 ) { 
       print $k . ' -->  ' . $v . $/;
       while ( my ($KK,$VV) =  each %$v ) { 
          print $KK . ' -->  ' . $VV . $/; 
       }
   }