#!/usr/bin/perl
use warnings;
use strict;

my @words = qw(mamy dady bal foo bar xrabbit ymamaa arabic);
my $list = join ' ', @words;
foreach( @words ) {
    my $rev = reverse $_;
    print "$_\n" if $list =~ /$rev/;
}
__END__
mamy
bar