my @array = qw( foo bar baz quux xyzzy);
my @matched;
for my $elem ( @array ) {
    push @matched, $elem if $elem =~ m/(.)\1/;
}
print "$_\n" for @matched;