@x = @x[($#x-100>0?$#x-100:0)..$#x];

##</code><code>##

  @x = @x[0..99] if @x > 100;