if (grep {$_ eq $element} @neighbor) {
		@array3=($allfiles[$n],$distance2);		
		push (@test1, @array3);	
		push (@highval, $distance2);
		}