それと併せて、$newlist[$k] = $datalist[$k];行は
push(@newlist, $datalist[$k]);に換えないといけないんじゃないかな？
前後の処理がよくわからないし、もっと効率のいい方法あるとは思うけど・・