eval は余り使いたくないので
my $line;
for(1..10){ $line = <FH> }
$line = <FH>; # １１行目

このまま素直に書くと１０行以下はエラーになるんで、
eof() 使ってくだちぃ