use Tie::Judy;

tie %fruit_color, 'Tie::Judy';

##</code><code>##

my %fruit_color = ("apple", "red", "banana", "yellow");

##</code><code>##

my %fruit_color = (
    apple  => "red",
    banana => "yellow",
);

##</code><code>##

$fruit_color{"apple"};           # gives "red"

##</code><code>##

my @fruits = keys %fruit_color;
my @colors = values %fruit_color;