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