$ref = {
        foo => open( BAR, "> baz" ),
        bar => print( BAR "biff\n" ),
    };