data
----
Loc     num     name    age     car     $$
817     09      Sam     99      TU      300
444     11      Ram     88      CM      7
111     3       Kin     8       RT      88

##</code><code>##


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);