Counting and sorting an array

[Kenan]

Hi , 

I would like to sort an array like this 
my @pets = {$cat, $dog,$camel,$camel,$camel,$dog} 
and then to have it printed out in the order of occurrences
print "I will give you  <3> camels, <2> dogs, <1> cat " for the blond one

Tnx Kenan