#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %oops=(
	A => 1,
	map { $_ => 2 } ('B','C'),
	map { $_ => 3 } ('D','E'),
	F => 4,
);

print Dumper(\%oops);