my( $closest, $pointer ) = @{ $sorted[ 0 ] };