use strict;
use Data::Dumper;
my %x = map { my $a; $_ => [$_, sub {$a; shift;}] } qw(a b c);
print Dumper(\%x);