Select Code to Download

for my $key (sort keys %client_total) {
 $client_total = {$key} = $client_total/10;
}

for my $key (sort keys %client_total) {
   $client_total{$key} = $client_total{$key}/10;
}

$_/=10 for values %client_total;

map {$_/=10} values %client_total;