my @a = qw/A B C D E F G H/;
my @b = qw/7 6 5 4 3 2 1 0/;
	
my @KEY = map {$a[$_], $b[$_]} (0 ..  $#a);