#!/usr/bin/perl
use strict;
use warnings;
use 5.012;

my @array = qw (a c e);
for my $item(@array) {
    say $item;
}

say "-" x 10;

my $save = $array[1]; 
my $insert = "b";

splice @array,1,1, ($insert, $save);

for  my $item(@array) {
    say $item;
}

say "-" x 10;

$save = $array[3];
$insert = "d";

splice @array,3,1, ($insert, $save);

for  my $item(@array) {
    say $item;
}