sub log_cache {
    local $, = " ";
    print SOMEWHERE "MyObj cache called", caller(1), "w/",$_[1],$/;
}