$r->{thisid} = 10;
   $r->{this_id} = 10;

##</code><code>##


use constant ID =>'thisid';
.
.
   $r->{(ID)} = 10;
.
.


##</code><code>##

    $r->{(THISID)}