You could also use the each function, which returns the next key and value pair of the hash, eg.

my %hash = (
    'apple'  => 'red',
    'banana' => 'yellow',
);
while( my( $key, $value ) = each %hash ){
    print "$key: $value\n";
}
[download]

See each for more info.