my $n1 = $data->{n1};
my $n2 = $data->{n2};
for my $c (1..$n1) {
    $data->{"exclude-$c-$_"} = 'yes' for 1..$n2;
}