...
splice @first, $_, 0, $second[$_ - 1] for reverse 1 .. @second;

print "@first";