Select Code to Download

for my $i (reverse 0 .. $#array) {
    if (($i+1) % 3 == 0) {
        splice @array, $i+1, 0, "new item";
    }    
}
use Data::Dumper; print Dumper \@array;