for my $n (sort { $a <=> $b } keys %buckets) {
my $drop_rate = $buckets{$n}->{'num_drops'} / ($n * $buckets{$n}->{'num_bursts'});
for my $n (sort { $a <=> $b } keys %buckets) {
my $drop_rate = $buckets{$n}->{'num_drops'} / ($n * $buckets{$n}->{'num_bursts'});
printf "%3d: drop_rate %.5f drop_event_rate %.5f\n",
$n, $drop_rate, $drop_event_rate;
}
printf "%3d: drop_rate %.5f drop_event_rate %.5f\n",
$n, $drop_rate, $drop_event_rate;
}