for (;$BASKET and (my @socks = $BASKET -> can_read(2)) or 1); ) {  
  ...  
}