Iterating Through Hashes

• The each keyword can be used in a while loop

while ( my ($name, $prop) = each %fruit ) {
    print "An $name is $prop.\n";
}