#(This section uses String::Similarity)

 <while ($items = $sth->fetchrow_hashref)
	
	{
	   $foundblock = $items->{'Block'};
	   $founditem=$items->{'itemID'};
		
	   $similarity = similarity $foundblock,$block);
	   		
		#checking for duplicate blocks
		
		select(undef,undef,undef,0.005);
		if ($similarity*100 > 85)
		{
		
			#duplicate found
		
			$duplicate = 1;
			last;
		
		}
	}