use 5.010;
while(<>){
        my @llog=split;
        $ips{$llog[0]}++;
}
for(keys %ips){
        say "$_ $ips{$_}";
}