You can sort the keys by value in the hash:

my @ips  = sort { $ip{$b} <=> $ip{$a} } keys %ip;
my @usrs = sort {$usr{$b} <=> $usr{$a}} keys %usr;
[download]

By comparing $b terms on the left, we get descending order.