...
    for my $sock ( @{ $timeouts{ int( time() ) {
        shutdown $sock, 2;
        close $sock;
        $poll->remove( $sock );
        ## log failure.
    }