sub create {
    my $self = shift;
    my %p = @_;
    
    print "$p{color} p{animal}" for (1..$p{count});
}

$zoo->create(animal => 'camel',
             count  => '10',
             color  => 'green');