use strict;
use warnings;

my @pets = qw{
   gerbil
   parrot
   hamster
   cat
   poodle
   goldfish
   };

my @doubles = grep m{(.)\1}, @pets;
print qq{$_\n} for @doubles;

##</code><code>##

parrot
poodle