You can use select (perldoc -f select) or IO::Select to check for availability of data on multiple sockets. select() allows for the specification of a timeout. This function will allow you to wait for data to become available on any socket of interest so you don't have to go socket to socket looking for work to do.

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]