use strict;
use warnings;
open my $fh, "<", $path or die "Konnte $path nicht öffnen: $!";
my @lines = <$fh>; # liest alle zeilen auf einmal
print @lines[9, 10]; # array slice der elemente 9 und 10