my %cvs_to_delete = map {($_, 1)} @cvs_to_delete;
@cvs = @cvs[grep {!$cvs_to_delete{$_}} 0..$#cvs];