@all = @a < $sz  ?  @a  :  @a[ $tl+1 .. $top, 0 .. $tl ];