my $checkthree = param('check');

##</code><code>##

use strict;
use warnings;

my $checkthree = param('check');

##</code><code>##

open IN, $data or die "Cannot open $data for reading:$!\n";

##</code><code>##


while (my $line =<DATA>)
{
	my (undef,undef,$three,$four,undef) = split "\t",$line;
	if ($three eq $checkthree) {print "$three found before $four in line $.\n"; last;}	
}
close DATA;