$a[ $tl++ % $sz ] = $val

##</code><code>##

	$a[ $tl=($tl+1)% $sz ] = $val

##</code><code>##

@all=@a[ $tl..($sz-1), 0..($tl-1) ];