Select Code to Download

while (( $key, $value) = each %hash) {
    print $key, "\n";
    delete $hash{$key}; # this is safe
}