Select Code to Download

use Data::Dumper;

...
    my %params = @_;
    print Dumper(\%params);
}

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