package Stasher; 

sub stash {
    my $ns = caller;
    $ns    = $ns . '::';
    ${ $Stasher::{$ns}{foo} } = 'cheese';
};