Select Code to Download

$VAR1 = {
          'hosts' => {
...
                     }
        };

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

hosts -> HASH(0x30129a0)
127.0.0.1:11211 -->  HASH(0x1b71da50)
...
malloc_total_free -->  6438240
get_misses -->  0