sub maybeset {
             my($key, $value) = @_;
             $Foo{$key} = $value unless $Foo{$key};
    }