Select Code to Download

foreach $k (keys %vals) {
    $key = $vals{$k};
...
    $key = $vals{$k};
    print "$$key[2]\n";
}

#!/usr/bin/perl

...
    $key = $vals{$k};
}
print "\$key=$key\n";

$key=two
$key=five

$CurrVer->SetValue("",REG_SZ, "$pathe");