my @new; splice @new, 0, 0, $first[$_], $second[$_] for reverse 0 .. $#second; print "@new";