$dqsel = 0;
my @a = reverse @exclude;
$dqsel += $a[$_]<<$_ for(0..$#a);