LB::reselect not working as expected

I was thinking this could be done within the LB_SELECTED event:

when LB_SELECTED {
  set current_pool [LB::server pool]
  LB::detach
  foreach i in $::pool_members {
    pool $current_pool member $i
    set current_ratio [LB::server ratio]
     BUILD ARRAY LOGIC HERE 
    LB::detach
  }
   EXTRACT APPROPRIATE SELECTION FROM ARRAY HERE 
  pool $current_pool member $best_selection
}

Sorry, my TCL is fairly limited. Also, this is just a guess as to what's possible. I'm not sure the pool setting matters much until the event is finished, so it could all be for not.