sub exclude {
    ($n, @values) = @_;
    @array1 = @values[0 .. $n];
    @array2 = @values[$n+1 .. $#values];

    foreach $entry (@array1) {
        @array2 = grep(!/^$entry$/, @array2);
    }
    return @array2;
}