we have 280579 records to parse  at ./upd_res_data2.pl line 72, <FH> line 280579.
Couldn't write record: Bad file descriptor at /usr/lib/perl5/5.8.0/Tie/File.pm line 665, <FH> line 280580.