for ( 1 .. $i ) {
   my $line = `head -$_ $filename | tail -1`;
   print $line;
}