$getset=sub  {
    my ($name,$val)=@_;
    eval('$'.$name."='".$val."'"); # I can access any variable in this scope
  };