$new_client_hash{$new_key} = $clients{$old_key}; $new_client_hash{$old_key} = \$new_client_hash{$new_key}; #### $new_client_hash{$new_key} = $new_client_hash{$old_key} = $clients{$old_key}; #### --- print map { my ($m)=1<