foreach $k (keys %vals) {
    $key = $vals{$k};
}
$CurrVer->SetValue("",REG_SZ, "$pathe");
foreach $k (keys %vals) {
    $key = $vals{$k};
    print "$$key[2]\n";
}

##</code><code>##

#!/usr/bin/perl

# arbitray hash table
my %vals = ("1","one","2","two","3","three");

# your code
foreach $k (keys %vals) {
    $key = $vals{$k};
}
print "\$key=$key\n";

# add something else to hash table
%vals = ("1","one","2","two","3","three","4","four","5","five");

# your code
foreach $k (keys %vals) {
    $key = $vals{$k};
}
print "\$key=$key\n";

##</code><code>##

$key=two
$key=five

##</code><code>##

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