open(F,'myfile') or die;
$/='RECORD SEPARATOR';
seek F, -(101+length($/)), SEEK_END;
<F>;
while(<F>) { $max=(split)[-1]; }
print "New value can be ", $max+1, "\n";