my @a = ("a", "b", "c", "d");
splice(@a, 2, 0, "nanu");
foreach (@a) {
    print "$_\n";
}