#!/usr/bin/perl

use strict;

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

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