my $empNUM;

open(DATA, "data") or die ; 
open(UPDAT, ">updated") or die;
while(<DATA>)
{
my @line = split(/ /, $_);
foreach $line (@line)
{
if ($line[2] eq $empNum){exit 0;}
}
}end loop
print UPDAT $details;
close(DATA);
close(UPDAT);