Select Code to Download

use warnings;
use strict;
...

warn Dumper(\%flat);

$VAR1 = {
          'monkey' => {
...
                      }
        };