@Pet_Types = ("dog", "cat", "dog", "parakeet", "dog", "cat");

my %type_table = ();
foreach my $type ( @Pet_Types ) {
  $type_table{$type}++;
}
my @unique_types = sort keys %type_table;
# @unique_types winds up with 'cat', 'dog', and 'parakeet'