my @array1=(1,2,3,4,5);
my @array2=(a,b,c,d,e);
splice @array1, 2, 1, @array2;
print join( ",", @array1 ), "\n";