#!/usr/bin/perl

use warnings;
use strict;

use Data::Dumper;

my %hash = (
    do { my $key = 'AAA'; $key, sub { print "$key\n"; }; },
    do { my $key = 'BBB'; $key, sub { print "$key\n"; }; },
);

print Dumper(\%hash);