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

my @words = qw(mamy dady bal foo bar ymamaa arabic);
my $regex = join '|', map scalar reverse, @words;
$regex    = qr/$regex/;
print "$_\n" for grep /$regex/, @words;