Select Code to Download

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