my $twig= new XML::Twig(
	                twig_handlers =>                  
	                  { PC-Compound => \&subrutineforparsing}
	                       );
	$twig->parsefile($inputfile);