my @a;
for$i(1..8){push@a,$_.$i for"a".."h"};