while(my $line=<$fh>)
{
  print $line if($.==9);
  print $line if($.==10);

  last if($.>10);
}