Select Code to Download

    sub {
        my ($key, $val, $href) = @_;
...
            $href->{$newkey} = $val;
            delete $href->{$key};
        }