sub function1 {
    my $params = shift;

    warn "My Dogs\n";
    for (@{$params->{'dogs'}}) { warn "\t$_\n" }

    warn "My Cats\n";
    for (@{$params->{'cats'}}) { warn "\t$_\n" }
}