$ perl a.pl 0
C3.A9.A

$ perl a.pl 1
E9.A