foreach $line (@connections) {
        if ($line =~ /^\s*(\d+\.\d+\.\d+\.\d+):\d+
                  \s*->\s*(\d+\.\d+\.\d+\.\d+):\d+
                  \s*->\s*(\d+\.\d+\.\d+\.\d+)/x) {
                $client_ip{$1}{$iteration}++;
                $vips{$2}{$iteration}++;
                $frontend{$3}{$iteration}++;
        }
}