Select Code to Download

use Data::Dumper;

...

print Dumper $h{a};
print Dumper $h{b};

$VAR1 = [
          'new_x_is_shared',
...
          'y',
          'z'
        ];