#!/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);