use Algorithm::Bucketizer;

# Create a bucketizer
my $bucketizer = Algorithm::Bucketizer->new(bucketsize => $size);

# Add items to it
$bucketizer->add_item($item, $size);

# Optimize distribution
$bucketizer->optimize(maxrounds => 100);

# When done adding, get the buckets
# (they're of type Algorithm::Bucketizer::Bucket)
my @buckets = $bucketizer->buckets();

# Access bucket content by using
# Algorithm::Bucketizer::Bucket methods
my @items  = $bucket->items();
my $serial = $bucket->serial();