use strict;
use warnings;
my $users = {};
$users->{fred}->{count}=1;
$users->{sarah}->{count}=2;
$users->{arthur}->{count}=1;
$users->{benjamin}->{count}=10;
$users->{phil}->{count}=3;
$users->{betty}->{count}=4;
$users->{ilsa}->{count}=5;

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

##</code><code>##

use strict;
use warnings;
my %users;
$users{fred}->{count}=1;
$users{sarah}->{count}=2;
$users{arthur}->{count}=1;
$users{benjamin}->{count}=10;
$users{phil}->{count}=3;
$users{betty}->{count}=4;
$users{ilsa}->{count}=5;

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