open   $files{ "foo" }, "  > xyz";
    print  { $files{ "foo" } } "done\n";
    close  { $files{ "foo" } };