in reply to Perl an array of sockets

I have not used EV event loops, but this code looks suspicious:
sub incoming { my $w=shift; $fh=$w->fh->accept or die; <<<<<<<
You are using a GLOBAL $fh , then attaching another watcher to it that calls back "sub cliente()".

Try deleting the global "my $fh", and making it local to sub incoming().

                All power corrupts, but we need electricity.