use Data::Dumper;
my %bytes;
while (...) { # deine schleife
    $bytes{ $ip } += $bytes;
}
print Dumper \%bytes;