DB<104> for $ref (1,8,9,16,17,24,25,32) { print "$ref: ", int(($ref-1)/8), "\n" } 1: 0 8: 0 9: 1 16: 1 17: 2 24: 2 25: 3 32: 3