#!/usr/bin/perl 

use strict;
use warnings;
use Cache::Memcached::Fast;
use Cache::Memcached;

use constant count => 2;

my %params;
foreach my $h (@{$params{servers}}) {
    $h->{noreply} = 1 if ref($h) eq 'HASH';
}

my $another = new Cache::Memcached::Fast(\%params);

my @keys = map { "noreply-$_" } (1..count);
$another->set_multi(map { [$_, $_] } @keys);

my $res = $another->get_multi(@keys);

my $count = 0;
foreach my $k (@keys) {
    if ($res->{$k} and $res->{$k} eq $k) {
        print $res;
    }
    else {
        print "Nothing\n";
    }
}