use Tie::Judy;
 
tie %judy, 'Tie::Judy';