my $id;
open FH,"file.ext" or die $!;
while(<FH>){
my($nid)=split(/\|/);
$id=$nid if $nid>$id;
}
close FH;
#and again you use $id+1