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;