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

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

##</code><code>##

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

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