>366
@ary = (@ary[0 .. 1] , $newdata , @ary[2 .. $#ary]);
とかいう方法は？