use IO::Select;
$select = IO::Select->new();
$select->add($sock1);
$select->add($sock2);
$select->add($sock3);

for my $sock ($select->can_read(0.1)){
    my $buf = $sock->read();
    # do stuff here
}
[download]

Is this what you need?