open(I, $data_path);
$found=0;
 while(<I>){
	chomp;
	@line = split(/\t/, $_);
	if($line[0] eq $GET{'id'}){
		$found=1;
		last;
	}
}
close(I);