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