for my $c (1..$data->{n1}) {

##</code><code>##

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