gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use MojoX::Redis;

my $redis1 = MojoX::Redis->new();

$redis1->sadd("set1" => "foo")->set("foo" => "foo desc")
  ->sadd("set1" => "bar")->set("bar" => "bar desc")->quit(sub { shift->stop })
  ->start;

my $redis2 = MojoX::Redis->new();

$redis2->smembers(
    "set1",
    sub {
        my ($redis, $res) = @_;
        use Data::Dumper;
        print Dumper $res;
        my $members = @$res;
        foreach my $e (@$res) {
            $redis->get(
                $e->[0] => sub {
                    printf STDERR "%s: %s\n", $e->[0], $_[1][0];
                    $redis->stop unless --$members;
                }
            );
        }

    }
)->start;