if ($socket == $server), see perlref:

Using a reference as a number produces an integer representing its storage location in memory. The only useful thing to be done with this is to compare two references numerically to see whether they refer to the same location.

It's faster than using $socket eq $server because the arguments don't need to be converted to the "blessing=type" string format first.

--
[ e d @ h a l l e y . c c ]