$old_total_bucket = 8;
$size = 0;
for ($i = 0; $i < 65537 ; $i++ ) {
    $size++;
    $words{"$i"} = 1;
    $c = %words;
    ($fill_bucket,$total_bucket) = split(/\//,$c);
    if($total_bucket != $old_total_bucket) {
        $old_total_bucket = $total_bucket;
        print "For the $size keys, hash parameters are: $c \n";
    }
}