1:     while (<STDIN>) {
2:         push(@F, $_);
3==>       shift(@F) if $. > 10;
4      }

##</code><code>##

    shift(@F) if $. > 10; }{ print @F;