@a = map { my $l = $_; map $l.$_, '01'..'12' } 'A'..'H';