$id = 1
open(MYFILE,"/var/tmp/mylist.dat") or die "Cant open mylist.dat"

while (<DMPLD>) {
      chomp;
      die "Request Id $id already present in file\n" if $_ eq $id;
                }

close DMPLD;