tie %clients, 'Tie::SortHash', \%clients, $sortblock;

     my $sortblock = q(my $c = (split /\s+/, $a)[1];
     my $d = (split /\s+/, $b)[1];
     $c cmp $d || $clients{$a} <=> $clients{$b});