my %filter_map = do { my $ix = 'A'; map { $ix++ => $_ } ( map { ($_) x 3 } 2 .. 6 ), ( 8 ) x 3, ( 9 ) x 4, };