while (my $line = <MYFILE>) {
      chomp $line;
      die "Request Id $id already present in file\n" if $line =~ /$id/;
}