Inside Object2:
   sub setsomething {
      my $self = shift;
      $self->{_object1}->{mode} = 1;
   }