Select Code to Download

use strict;
use warnings;
...
$hoh{wrong}   = %hash;

print Dumper \%hoh;

$VAR1 = {
          'correct' => {
                         'Moon' => 'night',
...
                       },
          'wrong' => '2/8'
        };