Is this what you want?

#!/usr/bin/perl

use strict;

my $addline = 'AAA';
my $HRR_resource = { $addline => 'BBB' };

print qq!<RESOURCE Id="$addline" $$HRR_resource{$addline}</RESOURCE>}\
+n !;
[download]