DB<118> for $ref (1,8,9,16,17,24,25,32) { print "$ref: ", chr(65+($ref-1)/8), "\n" }
1: A
8: A
9: B
16: B
17: C
24: C
25: D
32: D