use Tie::Hash::Stack;
use Lexical::Alias;

tie my(%a), 'Tie::Hash::Stack';
alias %a => my(%b);