%hash = (
    fruit    ,  apple,
    sandwich ,  hamburger,
    drink    ,  bubbly,
);

print "$hash{fruit}\n";