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

my @array = qw(x a m a x);
if (@array eq (reverse @array)){
    say "this's a palindrome.";
} else {
    say "this's not a palindrome.";
}