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