sub this_id :lvalue {
    $_[0]->{this_id} = $_[1] if @_ > 1;
    $_[0]->{this_id};
}

##</code><code>##

    $r->thisid = 10;