package Stasher; 
our %stash_of;

sub stash {
    my $ns = caller;
    $stash_of{$ns}{foo} = 'cheese';
};