my %f;
%f=(One=>{this=>'that'},
    two=>sub{$f{One}});