Select Code to Download

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

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

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