my $Email_address;

my ($Password,$U_Timestamp,$three,$four,$skipthisfield);
my  $data="/path/data/edit/data.txt";

open (FILE, "$data");

while (my $line =<FILE>) {
    ($Password,$U_Timestamp,$three,$four,$skipthisfield) = split "\t",$line;
     if ($id_in eq $three) { 
     $Email_address eq $four;
     last;  
    } 
    }