my $src = dir("C:/Perl/pubmed/Prasuna/DM/Database/Drugbank/Split");

#Check files in folder
my @txt_files = $src->children;

for my $txt_file ( @txt_files ) {
	my $in = $txt_file->openr;
	my $parser = new XML::Simple;
	my $tree = $parser->XMLin($in);

	$alldrug = $tree->{drug};
	#print pp($alldrug);
	@allkeys = keys % $alldrug;