my %daten;
while (...) { # Einlesen
    # Auswerten der Zeile, IP in $ip, Bytes in $bytes
    ...
    # Addieren:
    $daten{$ip} += $bytes;
}

# Ausgabe Datenmenge nach IP
for my $ip ( sort keys %daten) {
    print "IP: $ip\tBytes: $daten{$ip}\n";
}