>>217
とりあえずマニュアル読もうや。
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_splice_ARRAY_OFFSET_LENGTH_LIST

my @array = (0..40);
unshift @array, splice @array, 20, 10;
print join ',', @array;