my %val = do{my $cnt = 0; map {$_ => 2**(++$cnt)} split //, 'Aabcdefg'};