open(BASE, "C:/POS/POSA.xml");
open(IN, "C:/POS/Macro/awb.txt");
open(OUT, ">POSA_new.xml");

%map = ();

while (<IN>) {
	chomp $_;
	@items = split(/\,/, $_);
	$map{$items[0]} = $items[2];
}

close IN;
$cur_awb = "0";
$cur_val = $map{$items[0]} = $items[2];

while (<BASE>) {
	chomp $_;

	if ($_ =~ m/\<KEY_BOL_REF\>(\d*)\<\/KEY_BOL_REF\>/) {
		$cur_awb = $1;
		print OUT $_ . "\n";
	}
	elsif ($_ =~ m/\<CARBOL_TRSP_VALUE\>/) {
		print OUT "\t<CARBOL_TRSP_VALUE>" .$cur_val. "</CARBOL_TRSP_VALUE>\n";
	}
	elsif ($_ =~ m/\<CARBOL_TRSP_CUR\/\>/) {
		print OUT "\t<CARBOL_TRSP_CUR>USD</CARBOL_TRSP_CUR>\n";
	} else {
		print OUT $_ . "\n";
	}
}