gistfile1.pl

# set

my $corr = { from=>'', to=>'', msg=>'' };
my $ns = 'sqauser/jack' ;
my $data = repo->get( $ns ); 
$data ||= {};  # inicializa si está vacio
push @{ $data->{correos} }, $corr;
repo->set( ns=>$ns, data=>$data );

# get (en servicio)

for my $nsid ( repo->list( provider=>'sqauser' ) ) {
    my $data = repo->get( $nsid ) ;
    next unless ref $data->{correos} eq 'ARRAY';
    my @failed;
    for my $corr ( @{ $data->{correos} } ) {
        # prepara correo final
    }
    try { 
            # send correo final con Messaging
            repo->delete( ns=>$nsid );
        } catch {
            my $err = shift;
            _log "Error: " . $err;
    };
}