Select Code to Download

use Data::Dumper;    # to let us print out the results at the end
...
# numbered items are values

print Dumper(\%hash);

$VAR1 = {
          'yyy' => '54321',
          'xxx' => '12345',
          'zzz' => '13245'
        };