#!/os/dist/bin/perl -w

use Benchmark;

my @array = 0..10000;

my @idxsToRemove = ();
push @idxsToRemove, int( rand( 10000 ) ) for ( 0 .. 100 );

my %toRemoveIdx;
@toRemoveIdx{@idxsToRemove} = (1)x@idxsToRemove;

sub Tye {
    my @subarray = @array;

    @subarray = map { $toRemoveIdx{$_} ? () : $subarray[$_] } 0..$#subarray;
}

sub btrott {
    my @subarray = @array;

    splice @subarray, $_, 1 for sort { $b <=> $a } @idxsToRemove;
}
imethese( shift @ARGV || -5, 
           {
               'Tye' => \&Tye,
               'btrott' => \&btrott,
            }
         );