Select Code to Download

while( my( $key, $value ) = each %hash ) {
...

while( my $key = each %hash ) {
    ...
    my %reversed = reverse %h;
    ...
}

print "$key: ", %hash;