$current = 'a';
my %cds = map { $_ => $current++ } @cd_names;