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