programming-examples/perl/Hash/Using while and each function to output value in a hash.pl

$hash{fruit} = orange;
$hash{sandwich} = club;
$hash{drink} = lemonade;
while(($key, $value) = each(%hash)) {
    print "$key => $value\n";
}