...
print ON $ordernum;
truncate ON, tell;
close(ON);