use strict;
use warnings;

my $palindrome = 'anna';
my $test = reverse $palindrome;

print "$palindrome is a palindrome. \n" if $test = $palindrome;