open  (SRC, "<file.txt");
Read:
while(<SRC>) {
push @mas, $_;
last if @mas > 1000;
}
....
тут действия с массивом
....
goto Read