Oooh! Use Lexical::Alias!

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

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

That's if you're using Perl 5.8+. If you're below that, do:

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

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

Shameless plug.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;