Select Code to Download

use Data::Dumper;

...
    print $key, "\n";
    delete $hash{$key};
}

$VAR1 = {
          'a' => [
...
        };
a
b