My perl uses 8 as the minimum number of buckets, so it's incorrect for values which are less than 4.