SAMPLE QUERY: ID5141.C1665 ID5141.C2448 ID5141.C1253 ID5144.C2039 ID5141.C1596 ID5144.C1956 ID5141.C1906 ID5144.C2149 ID5141.C1221 ID5144.C1956 ID5141.C2149 ID5141.C2386 ID5141.C2039 ID5142.C1221 ID5141.C5887 ID5141.C7685 ID5141.C1005 ID5142.C2808 ID5141.C1046 ID5141.C1596 ID5141.C2386 ID5141.C4990 ID5141.C7685 ID5141.C4888 ---------------------------- SAMPLE RESULT: cluster1 ID5141.C1665 ID5141.C2448 cluster2 ID5141.C1253 ID5144.C2039 ID5141.C2039 ID5142.C1221 ID5141.C1221 ID5144.C1956 ID5141.C1596 ID5144.C1956 ID5141.C1046 ID5141.C1596 cluster3 ID5141.C1906 ID5144.C2149 ID5141.C2149 ID5141.C2386 ID5141.C2386 ID5141.C4990 cluster4 ID5141.C1005 ID5141.C2808 cluster5 ID5141.C5887 ID5141.C7685 ID5141.C7685 ID5141.C4888 ---------------------------- ##

##

#!/usr/bin/perl
open(FH,"sample_query") or die "can not open";
@array=;

for($i=0;$i<$#array;$i++)
{
	if($array[$i]=~/$array[$i]/)
	{
		$mark=$array[$i];
		if($mark=~/$array[$i]/)
		{
			print "$array[$i]\n";
		}
	}
}