sub flip { $@_[0] = !($@_[0] };