my $file = 'file.xml';
my $twig = new XML::Twig;	## Get twig object
$twig->parsefile($file);	## parse the file to build twig


my $root = $twig->root;		## Get the root element of twig
my @elements = $root->children;	## Get elements list of twig

foreach my $e (sort @elements){
	my $cpc = ($e->first_child('EstimatedCPC')->text)*100;
	print $cpc,"\n";
}