Select Code to Download

no strict qw/vars/;

...
$sum += ${$::{$_}} foreach grep /sel\d+/, keys %::;

print $sum, "\n";