@a = grep /[A-H](0[1-9]|1[0-2])/, 'A01'..'H12';