Something

                 for(my $i=0;$i<1000;$i++)
                 {
                          my $shifter = shift(@lines);
                          print FILE2 "$shifter";
                 }