use String::Palindrome qw( is_palindrome );

my @array = qw( x a m a x );

print "@array ",
      is_palindrome( @array ) ? "is" : "isn't ",
      "palindromic.\n";