Array Perl

@array = ("one", "two");
@array2 = ("three", "four");
splice(@array, 2, 0, @array2);
print join(", ", @array);