print "\nThis program accepts a 9 character string from you the user and determines whether or not 
It is a palindrome, printing the result to the screen. \n";

print "\nPlease Enter in a 9 character item: ";
;
my ($a, $b, $c, $d, $e, $f, $g, $h, $i);
chomp ($a=<>); chomp ($b=<>); chomp ($c=<>); chomp ($d=<>);
chomp ($e=<>); chomp ($f=<>); chomp ($g=<>); chomp ($h=<>); chomp ($i=<>);

if ($a eq $i && $b eq $h && $c eq $g && $d eq $f && $e eq $e ){
    print "PALINDROME!\n";
}
else{
    print "NOT A PALINDROME! \n";
}