my @lines = ();

open THISFILE, "c:/test.txt";
while(<THISFILE>)
 {push(@lines,$_);}
close THISFILE;

for(my $i = 0; $i <= 1000; $i += 100)
 {print $lines[$i] || "";}