sub set : lvalue {
  @_ == 1 ? $_[0] : set($_[0]{$_[1]},@_[2..$#_]);
}