Select Code to Download

my %new_client_hash;
foreach my $old_key (keys %clients) {

...
   $new_client_hash{$new_key} = $clients{$old_key};
   $new_client_hash{$old_key} = \$new_client_hash{$new_key};
}