my %longNames = map { ($_=>1) } @longNames;
for my $l (2..2990) {
	my $v = $Sheet2->Cells($l, $Signalcolumn)->{'Value'};
	next unless length $v;
	if ( $longNames{$v} ) {
		$Sheet2->Cells($l, 100)->{'Value'} = "matched"; 
		print"\n***********Matched*************\n";
	}
}