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


##</code><code>##

shift @a if @a == $sz;