use Tie::File; tie my @array, 'Tie::File', $filename or die $!; my $l = 9; # line 10 while (defined( my $line = $array[$l] )) { print "<$line>\n"; } continue { $l++ } #### open my $fh, '<', $filename or die "$filename: $!"; scalar <$fh> for 1..9; # skip 9 lines while (<$fh>) { chomp; print "<$_>\n"; } close $fh;