my @array = (0..7);
splice @array, 4, 0, ('inserted-array');
print "@array\n";

##</code><code>##

# push @array, @others;
splice @array, @array, 0, @others;

# my $element = pop @array
my $element = splice @array, $#array, 1;

# my $element = shift @array
my $element = splice @array, 0, 1;

# unshift @array, @others
splice @array, 0, 0, @others;