my $val = $obj->get($key); my %copy = $obj->get(); my %parts = $obj->get(@keys); $obj->set( $key => $val ); $obj->set( %pairs );