Select Code to Download

use strict;

...
no strict "refs";
${$names[$_]} = $values[$_] for 0..$#names;
use strict;