push @result,join('',@sc[$i*$ml .. $i*($ml+1)-1]);