$loopIndex = 0;
	$input = <STDIN>;
	chomp($input);
foreach (@a)
{
	
	if($_ =~ m/<name> [A-Z]/)
	{
		print "Contact: @a[$loopIndex -1]" ;
	}
	
	$loopIndex++;
}