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