Select Code to Download

use Data::Dumper;

...
    }
    print Dumper \%params;
}

$VAR1 = {
          'insect' => [
...
          'animal' => 'monkey',
          'fish' => 'tuna'
        };