@a = grep { (/.(..)/)[0] < 13 } 'A01'..'H12';