tie my %bar, 'Tie::HashDefaultValue', sub {};
# time passes
$bar{foo}->();