sub isPalindrome
{
    my $orig = shift;
    my $reversed = 0;
    my $n = $orig;
    ...