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

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