my %thingy;
$thingy{foo} = sub { print "Cool!\n" };
$thingy{foo}();