$/="//\n";
$count_records=0;
open OUT1, ">>0_999";
open OUT2, ">>1000_2000";
open OUT3, ">>2001_3000";
while(<>)
{
    $record=$_;
    $count_records++;
   
}