{
    my %cache;

    sub foo { ... }

    sub dump_foo {
        require Data::Dumper;
        print Data::Dumper::Dumper(\%cache);
    }
}