Select Code to Download

my @cats = qw(persian siamese cute);
my @dogs = qw(doverman bulldog);
...
  cats => \@cats,
  dogs => \@dogs,
});

sub function1 {
    my $params = shift;
...
    warn "My Cats\n";
    for (@{$params->{'cats'}}) { warn "\t$_\n" }
}