It may be too inefficient if your arrays are large, but it does what you ask.

my @array = 1 .. 10;
my @arrayindex = ( 2, 6, 4, 5 );

splice @array, $_, 1 for sort { $b <=> $a } @arrayindex;

print "@array\n"; # 1 2 4 8 9 10
[download]

Thanks to Joost and newbio for pointing out that an aray slice doesn't delete elements not at the end of an array.