##

 my $parser = XML::LibXML->new();
  my $tree = $parser->parse_file($inputfile);
  my $root = $tree->getDocumentElement;
  my $sequence = 'Sequence';		
  	
  my $querysequence = '//REPOSITORY/FOLDER/MAPPING/TRANSFORMATION/@TYPE';

my @typenodes = $root->findnodes($querysequence);
   
 foreach my $sequencetransform (@typenodes) {
  	 my $literal = $sequencetransform->to_literal;
   	 #print $literal;
        if ( $literal == 'Sequence' ) {
              print $literal;
		my @datatypenodes = $sequencetransform->findnodes('TRANSFORMFIELD/@DATATYPE');
	       foreach my $sequencetransform_data (@datatypenodes) {
		print "am i here?";
		print Dumper $sequencetransform->findnodes('TRANSFORMFIELD/@DATATYPE');
  	 	#my $literal1 = $sequencetransform_data->to_literal;
		print $literal1;
	 		if ( $literal1 == 'bigint' ) { 
				$sequencetransform_data->setValue('integer'); 

       			}
    		}	
	 }
 }