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