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

# different than:

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