tie @open, "Tie::Array::Sorted", sub { $_[0]->f <=> $_[1]->f };