if ( @ips = $line =~ /[\d.]{7,15}/g ) {
    $client_ip{$ips[0]}{$iteration}++;
    . . .
}