my @array = ; close FILE; # Print line 10 print $array[10]; #### my $findline = 10; while () { next unless $. == $findline; # .. do something last; #don't read any more }