my $checkthree = param('check');

open (DATA, "$data") || die "Couldn't get data";
           
@all=<DATA>;
close (DATA);



#Read each line of the data file
foreach $line (@all){
$line=~s/\n//g;
($one,$two,$three,$four,$five,$six,$seven,) = split ('\t',$line);}
  if ($checkthree == $three) {
   last;}
   

   
print "$four";