# unchecked code, sorry.
my @x = <FH>;
@x = @x[($#x-100>0?$#x-100:0)..$#x];