Select Code to Download

use strict;
use warnings;
...
$users->{ilsa}->{count}=5;

print $_ . "\n" for sort { $users->{$a}->{count} <=> $users->{$b}->{co
+unt} } keys %$users;

use strict;
use warnings;
...
$users{ilsa}->{count}=5;

print $_ . "\n" for sort { $users{$a}->{count} <=> $users{$b}->{count}
+ } keys %users;