Select Code to Download

$id = 1; # <--- semicolon was missing
open(MYFILE,"/var/tmp/mylist.dat") or die "Cant open mylist.dat"
...

close MYFILE;

      die "Request Id $id already present in file\n" if /$id/;

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

    my @array = split /,/, $_;
    die "Request Id $id already present in file\n" if $array[0] eq $id
+;