$hashref = {
fruit => apple,
sandwich => hamburger,
drink => bubbly,
};
while(($key, $value) = each(%$hashref)) {
print "$key => $value\n";
}