while ( $cnt < $howmany )
	{	$key = rndStr( 40, 'a'..'z');
		$data = substr(rndStr(80,qw[a c g t]),0,80));
        	if ( ( ( $cnt % 113 ) == 0 )&&( scalar keys %khash < 10 ) )
			{ $khash{$key} = 0; }
 .
 .
 .


     for ( 1 .. 4 )
     {  
	     foreach $key ( keys %khash )
	     {	$stime = gettimeofday;
	    	$ret = $cursor->c_get($key, $data, DB_SET);
		      $etime = sprintf("%.6f",(gettimeofday - $stime) * 1_000 );
		      print "   $key   Time: $etime ms\t$hkey\n";
	     }
     }