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