Select Code to Download

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

use constant ID =>'thisid';
...
.
.

    $r->{(THISID)}