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" )
->sadd ( "set2" => "foo2" )
->set ( "foo2" => "foo2 desc" )
->sadd ( "set2" => "bar2" )
->set ( "bar2" => "bar2 desc" )

->quit( sub { shift->stop } )->start;

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

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