#!/usr/bin/env perl

use strict;

my @a = (1,2,3,4,5,6,7,8,9,0);

my $v = 10;
my $p = 5;
my $a = @a;

splice (@a,$p,$a,($v, splice(@a,$p)));

print "@a\n";