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

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