use Tie::Judy;

tie %fruit_color, 'Tie::Judy';