@a = grep $_++, grep { (/.(..)/)[0] < 12 } 'A00'..'H11';