sub DESTROY { $foos[${$_[0]}] = undef; }