# sort by user foreach my $user(sort keys %hash) { print "$user logged in $hash{$user} times.\n"; } # sort by times users are logged in foreach my $user(sort {$hash{$a} <=> $hash{$b}} keys %hash) { print "$user logged in $hash{$user} times.\n"; }