Hash Perl

%hash = qw(
    fruit      apple
    sandwich   hamburger
    drink      bubbly
);
print "$hash{'fruit'}\n";