You don't have to split. reverse can also handle strings:

#!/usr/bin/perl

use strict;
use warnings;

my $palindrome = 'lagerregal';
my $check = reverse $palindrome;

print "yes\n" if $check eq $palindrome;
[download]

(see perldoc -f reverse)