programming-examples/perl/Hash/each function returns both key and value in a hash.pl

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